File: complex.f

package info (click to toggle)
ftnchek 3.3.1-7
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 8,684 kB
  • sloc: ansic: 21,908; fortran: 5,748; yacc: 4,071; sh: 3,035; makefile: 895; lisp: 322; f90: 118; perl: 76
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