File: t208u.dca

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 (28 lines) | stat: -rw-r--r-- 954 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
!====>Begin Module %MAIN                  File t208u.f                  
!---->Makedcls Options: All variables                                   
!
!     Parameter variables
!
  INTEGER             MAXTOK
  PARAMETER           (MAXTOK = 10)
  INTEGER             MAXTK1
  PARAMETER           (MAXTK1 = 10)
  INTEGER             MAXTK2
  PARAMETER           (MAXTK2 = 10)
!
!     Local variables
!
  CHARACTER*(2*MAXTK1)             TK1LS2
  CHARACTER*(MAXTK1**2)            TK1LS3
  CHARACTER*(MAXTK1)  TK1LST
  CHARACTER*(2*MAXTK2)             TK2AR2(200)
  CHARACTER*(MAXTK2**2)            TK2AR3(300)
  CHARACTER*(MAXTK2)  TK2ARR(100)
  CHARACTER*(2*MAXTOK)             TOKAR2(200)
  CHARACTER*(MAXTOK**2)            TOKAR3(300)
  CHARACTER*(MAXTOK)  TOKARR(100)
  CHARACTER*(2*MAXTOK)             TOKLS2
  CHARACTER*(MAXTOK**2)            TOKLS3
  CHARACTER*(MAXTOK)  TOKLST
!
!====>End Module   %MAIN                  File t208u.f