| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127 |
- diff --git a/source/angledb.f b/source/angledb.f
- index 28ad657..eaa847d 100644
- --- a/source/angledb.f
- +++ b/source/angledb.f
- @@ -1416,10 +1416,10 @@ C include files
- C local variables
- INTEGER COUNT, SPTR, OLDCLASS, OLDMAXANGLEDBS
- INTEGER THETYPE, CURPSIS, CURPHIS
- - INTEGER CLASSINDEX
- + INTEGER CLASINDEX
- DOUBLE PRECISION K1, CUTOFF
- CHARACTER*4 THENAME
- - CHARACTER*20 CLASSNAME
- + CHARACTER*20 CLASNAME
- C begin
- C
- IF (ANGLEDBFLAG) THEN
- @@ -1450,10 +1450,10 @@ C
- ELSE IF (WD(1:4).EQ.'CLAS') THEN
- OLDCLASS = CURANGLEDBCLASS
- CALL NEXTWD('class name =')
- - CLASSNAME = WD(1:20)
- + CLASNAME = WD(1:20)
- ANGLEDBMODE = NEW
- DO COUNT = 1, NANGLEDBCLASSES
- - IF (ANGDBCLASSNAMES(COUNT).EQ.CLASSNAME) THEN
- + IF (ANGDBCLASSNAMES(COUNT).EQ.CLASNAME) THEN
- ANGLEDBMODE = UPDATE
- CURANGLEDBCLASS = COUNT
- END IF
- @@ -1472,7 +1472,7 @@ C
- END IF
- NANGLEDBCLASSES = NANGLEDBCLASSES + 1
- CURANGLEDBCLASS = NANGLEDBCLASSES
- - ANGDBCLASSNAMES(CURANGLEDBCLASS) = CLASSNAME
- + ANGDBCLASSNAMES(CURANGLEDBCLASS) = CLASNAME
- ANGLEDBASSNDX(CURANGLEDBCLASS) = NANGLEDBS
- END IF
- C
- @@ -1733,16 +1733,16 @@ C
- & HEAP(ANGLEDBTPTR))
- ELSE IF (WD(1:4).EQ.'CLAS') THEN
- CALL NEXTWD('Class name>')
- - CLASSNAME = WD(1:20)
- - CLASSINDEX = 0
- + CLASNAME = WD(1:20)
- + CLASINDEX = 0
- DO COUNT = 1, NANGLEDBCLASSES
- IF (ANGDBCLASSNAMES(COUNT).EQ.
- - & CLASSNAME) THEN
- + & CLASNAME) THEN
- PRINTTHISCLASS(COUNT) = .TRUE.
- - CLASSINDEX = COUNT
- + CLASINDEX = COUNT
- END IF
- END DO
- - IF (CLASSINDEX.EQ.0) THEN
- + IF (CLASINDEX.EQ.0) THEN
- CALL DSPERR('ANGLEDB',
- & 'unknown class. Using first.')
- PRINTTHISCLASS(1) = .TRUE.
- diff --git a/source/rama.f b/source/rama.f
- index c5d14f2..3063e7b 100644
- --- a/source/rama.f
- +++ b/source/rama.f
- @@ -1468,11 +1468,11 @@ C include files
- C local variables
- INTEGER COUNT, SPTR, OLDCLASS, OLDMAXRAMAS,
- & THETYPE, CURPSIS, CURPHIS,
- - & CURCHIS, CURTHTS, CLASSINDEX
- + & CURCHIS, CURTHTS, CLASINDEX
- INTEGER CLEN
- DOUBLE PRECISION K1, CUTOFF
- CHARACTER*4 THENAME
- - CHARACTER*50 CLASSNAME
- + CHARACTER*50 CLASNAME
- C begin
- C
- C this is used by READRAMA2 to hold the selection
- @@ -1503,10 +1503,10 @@ C
- ELSE IF (WD(1:4).EQ.'CLAS') THEN
- OLDCLASS = CURRAMACLASS
- CALL NEXTWD('class name =')
- - CLASSNAME = WD(1:50)
- + CLASNAME = WD(1:50)
- RAMAMODE = NEW
- DO COUNT = 1, NRAMACLASSES
- - IF (RAMACLASSNAMES(COUNT).EQ.CLASSNAME) THEN
- + IF (RAMACLASSNAMES(COUNT).EQ.CLASNAME) THEN
- RAMAMODE = UPDATE
- CURRAMACLASS = COUNT
- END IF
- @@ -1525,7 +1525,7 @@ C
- END IF
- NRAMACLASSES = NRAMACLASSES + 1
- CURRAMACLASS = NRAMACLASSES
- - RAMACLASSNAMES(CURRAMACLASS) = CLASSNAME
- + RAMACLASSNAMES(CURRAMACLASS) = CLASNAME
- END IF
- C
- C set force constant for current class,
- @@ -1954,18 +1954,18 @@ C
- & HEAP(RAMAATOMPTR), 0)
- ELSE IF (WD(1:4).EQ.'CLAS') THEN
- CALL NEXTWD('Class name>')
- - CLASSINDEX = 0
- + CLASINDEX = 0
- DO COUNT = 1, NRAMACLASSES
- - IF (RAMACLASSNAMES(COUNT).EQ.CLASSNAME)
- - & CLASSINDEX = COUNT
- + IF (RAMACLASSNAMES(COUNT).EQ.CLASNAME)
- + & CLASINDEX = COUNT
- END DO
- - IF (CLASSINDEX.EQ.0) THEN
- + IF (CLASINDEX.EQ.0) THEN
- CALL DSPERR('RAMA',
- & 'unknown class. Using first.')
- - CLASSINDEX = 1
- + CLASINDEX = 1
- END IF
- CALL PRINTRAMAS(CUTOFF, HEAP(CALCRAMAPTR),
- - & HEAP(RAMAATOMPTR), CLASSINDEX)
- + & HEAP(RAMAATOMPTR), CLASINDEX)
- ELSE
- CALL DSPERR('RAMA',
- & 'Expected ALL or CLASs.')
|
