← Back to branch summary

~ubuntu-branches/ubuntu/edgy/ftnchek/edgy

« back to all changes in this revision

Viewing changes to test/Okay/t208u.dca

  • Committer: Bazaar Package Importer
  • Author(s): Mark Brown
  • Date: 2002-03-28 10:49:50 UTC
  • Revision ID: james.westby@ubuntu.com-20020328104950-kssfxlf8u0qsfelr
Tags: upstream-3.1.2
Import upstream version 3.1.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/Okay/t208u.dca
 
1
!====>Begin Module %MAIN                  File t208u.f                  
 
2
!---->Makedcls Options: All variables                                   
 
3
!
 
4
!     Parameter variables
 
5
!
 
6
  INTEGER             MAXTOK
 
7
  PARAMETER           (MAXTOK = 10)
 
8
  INTEGER             MAXTK1
 
9
  PARAMETER           (MAXTK1 = 10)
 
10
  INTEGER             MAXTK2
 
11
  PARAMETER           (MAXTK2 = 10)
 
12
!
 
13
!     Local variables
 
14
!
 
15
  CHARACTER*(2*MAXTK1)             TK1LS2
 
16
  CHARACTER*(MAXTK1**2)            TK1LS3
 
17
  CHARACTER*(MAXTK1)  TK1LST
 
18
  CHARACTER*(2*MAXTK2)             TK2AR2(200)
 
19
  CHARACTER*(MAXTK2**2)            TK2AR3(300)
 
20
  CHARACTER*(MAXTK2)  TK2ARR(100)
 
21
  CHARACTER*(2*MAXTOK)             TOKAR2(200)
 
22
  CHARACTER*(MAXTOK**2)            TOKAR3(300)
 
23
  CHARACTER*(MAXTOK)  TOKARR(100)
 
24
  CHARACTER*(2*MAXTOK)             TOKLS2
 
25
  CHARACTER*(MAXTOK**2)            TOKLS3
 
26
  CHARACTER*(MAXTOK)  TOKLST
 
27
!
 
28
!====>End Module   %MAIN                  File t208u.f