File: complex.f

package info (click to toggle)
ftnchek 2.11.2-2
  • links: PTS
  • area: main
  • in suites: potato
  • size: 5,392 kB
  • ctags: 2,790
  • sloc: ansic: 21,570; fortran: 2,921; yacc: 2,794; sh: 1,623; makefile: 693; lisp: 264; awk: 163
file content (16 lines) | stat: -rw-r--r-- 377 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
      complex cc,cd
      parameter (cc=(1.2,3.4))
      data cd,de / ( +23e5 , 0 ), (-5 ,  +77)/
      a = (12,32)
      a = (5,-3e5)
      write(11,7) a
 7    format(1x,2f10.2)
      print 22, (1,2) ,a,(1,2,i=1,2)
 22   format(1x,2e10.3,2f10.2,4i4)
      call abc(123,(456,789))
      end
      subroutine abc(x,z)
      integer x
      complex z
      print *,z+x
      end