home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fchek284.zip / test / t208e.f < prev    next >
Text File  |  1994-11-06  |  689b  |  31 lines
  1.       DOUBLE PRECISION     D(10,20,30), E(40,50), F(60)
  2.       REAL                 R, S(70,80)
  3.       CHARACTER            C
  4.       CHARACTER*81         LINE
  5.       LOGICAL           LOGVAR
  6.       COMPLEX           Z, ZZ
  7.       DOUBLE COMPLEX       ZZZ, ZZZZ
  8.       INTEGER              I, J, K
  9.       J = M
  10.       END
  11.       SUBROUTINE SUB 
  12.       REAL X, Y, Z
  13.       COMMON /SHARE/ A, B, C
  14.       END
  15.       REAL FUNCTION FUN
  16.       REAL X, Y, Z      
  17.       COMMON /SHARE/ A, B, C
  18.       FUN = 0.0
  19.       END
  20.       SUBROUTINE BAR
  21.       REAL PI
  22.       PARAMETER (PI = 3.14159265)
  23.       INTEGER NPI
  24.       PARAMETER (NPI = 9)
  25.       INTRINSIC SQRT, SIN, COS
  26.       EXTERNAL MYSQRT, MYSUB
  27.       REAL MYSQRT
  28.       END
  29.  
  30.       
  31.