← Back to branch summary

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

« back to all changes in this revision

Viewing changes to test/Okay/t208d.dc2

  • 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/t208d.dc2
 
1
C====>Begin Module SYMSF                  File t208d.f                  
 
2
C---->Makedcls Options: All variables                                   
 
3
C
 
4
C     External functions
 
5
C
 
6
      EXTERNAL KARASC, KARCM2, KARUC
 
7
C
 
8
      INTEGER KARASC, KARCM2, KARUC, MIN0, MOD
 
9
C
 
10
C     Argument variables
 
11
C
 
12
      INTEGER FONT(1), SWCHAR(1)
 
13
C
 
14
C     Local variables
 
15
C
 
16
      INTEGER ACCENT, ALPHA, AMPSND, AT, BA, BETA, CARET, CC, CG, CHI
 
17
      INTEGER CI, COLON, COMMA, CR, CS, CYA, CYB, CYCHE, CYD, CYE, CYEE
 
18
      INTEGER CYEEK, CYF, CYG, CYK, CYKHA, CYL, CYM, CYMZNK, CYN, CYO
 
19
      INTEGER CYOO, CYP, CYR, CYS, CYSH, CYSHCH, CYT, CYTSE, CYTZNK, CYV
 
20
      INTEGER CYYA, CYYE, CYYIRI, CYYOO, CYZ, CYZHE, DEL, DELTA, DOLLAR
 
21
      INTEGER DQUOTE, DR, EPSLON, EQUALS, ETA, EXCLPT, FCASE, FTYPE
 
22
      INTEGER FVAR, GAMMA, GE, GG, GI, I, IDIG, IG, II, ILC, IOTA, IR
 
23
      INTEGER IUC, KAPPA, KG, KR, LAMBDA, LANGLE, LBRACE, LBRAKT, LCA
 
24
      INTEGER LCB, LCC, LCD, LCE, LCF, LCG, LCH, LCI, LCJ, LCK, LCL, LCM
 
25
      INTEGER LCN, LCO, LCP, LCQ, LCR, LCS, LCT, LCU, LCV, LCW, LCX, LCY
 
26
      INTEGER LCZ, LOC0, LOC0SV, LOCLC, LOCUC, LPAREN, MINUS, MU, N20147
 
27
      INTEGER NOCHAR, NPR001, NPR002, NPR003, NPR004, NPR005, NPR006
 
28
      INTEGER NPR007, NPR008, NPR009, NPR010, NPR011, NPR012, NPR013
 
29
      INTEGER NPR014, NPR015, NPR016, NPR017, NPR018, NPR019, NPR020
 
30
      INTEGER NPR021, NPR022, NPR023, NPR024, NPR025, NPR026, NPR027
 
31
      INTEGER NPR028, NPR029, NPR030, NPR031, NPR032, NPR033, NPR034
 
32
      INTEGER NPR035, NPR036, NPR037, NPR038, NPR039, NPR040, NPR041
 
33
      INTEGER NPR042, NPR043, NPR044, NPR045, NU, NUL, NUMBER, NX0028
 
34
      INTEGER NX0050, NX0061, NX0100, NX0114, NX0141, NX0204, NX0244
 
35
      INTEGER OMCRON, OMEGA, PERCNT, PERIOD, PHI, PI, PLUS, PSI, QUERY
 
36
      INTEGER RANGLE, RBRACE, RBRAKT, RHO, RPAREN, RSLANT, SA, SCOLON
 
37
      INTEGER SG, SIGMA, SLASH, SPACE, SQUOTE, SR, SS, STAR, TAU, THETA
 
38
      INTEGER TILDE, TR, UCA, UCB, UCC, UCD, UCE, UCF, UCG, UCH, UCI
 
39
      INTEGER UCJ, UCK, UCL, UCM, UCN, UCO, UCP, UCQ, UCR, UCS, UCT, UCU
 
40
      INTEGER UCV, UCW, UCX, UCY, UCZ, UPSLON, USCORE, VBAR, XI, ZETA
 
41
C
 
42
      LOGICAL ERROR
 
43
C
 
44
C     Common variables
 
45
C
 
46
      INTEGER CASESW, KFONT, MAXFNT, NFONT, NFUSED
 
47
C
 
48
      COMMON /SYM02/ CASESW, KFONT, MAXFNT, NFONT, NFUSED
 
49
C
 
50
C     Common variables
 
51
C
 
52
      INTEGER ASCII(96,5), BSWTCH(5), FONTID(5), FONTNM(5,5), FSWTCH(5)
 
53
      INTEGER LSWTCH(5), USWTCH(5)
 
54
C
 
55
      COMMON /SYM03/ ASCII, BSWTCH, FONTID, FONTNM, FSWTCH, LSWTCH
 
56
      COMMON /SYM03/ USWTCH
 
57
C
 
58
C====>End Module   SYMSF                  File t208d.f