home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fchk294s.zip / ftnchek-2.9.4 / test / complex.f < prev    next >
Text File  |  1994-11-06  |  377b  |  17 lines
  1.       complex cc,cd
  2.       parameter (cc=(1.2,3.4))
  3.       data cd,de / ( +23e5 , 0 ), (-5 ,  +77)/
  4.       a = (12,32)
  5.       a = (5,-3e5)
  6.       write(11,7) a
  7.  7    format(1x,2f10.2)
  8.       print 22, (1,2) ,a,(1,2,i=1,2)
  9.  22   format(1x,2e10.3,2f10.2,4i4)
  10.       call abc(123,(456,789))
  11.       end
  12.       subroutine abc(x,z)
  13.       integer x
  14.       complex z
  15.       print *,z+x
  16.       end
  17.