Thank you. It is a pity it cannot be fixed. I liked better your way of fold presentation than Notepad++, which can fold the code correctly.
I cannot understand your last comment that the 'Folder' does not have access to the next line.
This IF folds correctly

IF(((CHECK(160).AND..NOT.CHECK(334 ...

Thank you. It works better, but there are still problems.
In this code folding the first IF (i.e. IF(CHECK(80))THEN) folds everything and the code after the corresponding ENDIF
(just before comment "C-code from here to end is lost " ) is lost.


SUBROUTINE KHX20
C ...

Only the innermost IF - ENDIF block (i.e. IF(LPTP==83) ... ) folds.
It folded correctly before I use the recently cent DLL.

SUBROUTINE KHX20
IF(LDEBUG>=1)THEN
CALL VBSIWT
IF(LDEBUG>=2)THEN
CALL MTEWRT(ELXYZ ,NAXES ,LNODZ ,'ELXYZ ')
IF(NTAB==1)CALL VCEWRT(ELPR ,NPRZ ,'ELPR ')
CALL MTEWRT(CBF ,NCBF ,NRHS ,'CBF ')
IF(LPTP==83)THEN
CALL VCEWRT(ELPRW ,NPRZW ,'ELPRW ')
ENDIF
IF(LDBUG1<2)CALL MTEWT3(DISP ,NDF ...

Thanks. With this DLL I can fold a multiline IF( )THEN block, but it does not work properly.
Everything up to the end of the file is folded

Thanks. With this DLL I can fold a multiline IF( )THEN block, but it does not work properly.
Everything up to the end of the file is folded

When the IF(...) THEN statement of IF-ELSE-ENDIF block is written on more than one line it cannot be folded.

When the IF( ) statement from IF-ELSE-ENDIF block is written on more than one line it cannot be folded.