=?windows-1250?Q?Re:_limit_to_number_of_functions/subroutines_in_code_explorer?_[59997]?=

[Kenny Tilley]

Here ya go!

tks.
!ftn95$free

INTEGER*1 FUNCTION ITEST1()
ITEST1   =  1
END

INTEGER*2 FUNCTION ITEST2()
ITEST2   =  1
END

INTEGER*4 FUNCTION ITEST4()
ITEST4   =  1
END

INTEGER*8 FUNCTION ITEST8()
ITEST8   =  1
END

INTEGER FUNCTION ITEST()
ITEST   =  1
END

REAL FUNCTION RTEST()
RTEST   =  1.0
END

REAL*4 FUNCTION RTEST4()
RTEST4   =  1.0
END

REAL*8 FUNCTION RTEST8()
RTEST8   =  1.0
END

 CHARACTER FUNCTION CTEST()
 CTEST = " "
END

 CHARACTER*16 FUNCTION CTEST16()
 CTEST16 = " "
END

 CHARACTER*(*) FUNCTION CTESTSTAR()
  CTESTSTAR = " "

END
 
LOGICAL FUNCTION LTEST()
LTEST   =  .TRUE.
END

LOGICAL*1 FUNCTION LTEST1()
LTEST1   =  .TRUE.
END

LOGICAL*2 FUNCTION LTEST2()
LTEST2   =  .TRUE.
END

LOGICAL*4 FUNCTION LTEST4()
LTEST4   =  .TRUE.
END

 COMPLEX FUNCTION ETEST()
 ETEST  =  (1.0,1.0)
END

 COMPLEX*8 FUNCTION ETEST8()
 ETEST8  =  (1.0D0,1.0D0)
END
 

K

-- 
<http://forum.pspad.com/read.php?2,59995,59997>
PSPad freeware editor http://www.pspad.com