Searched defs:GEOUTG (Results 1 – 1 of 1) sorted by relevance
| /dports/biology/mopac/mopac7-1.15/fortran/ |
| H A D | geoutg.f | 1 SUBROUTINE GEOUTG(IPRT) subroutine
13 * GEOUTG WRITES OUT THE GEOMETRY IN GAUSSIAN-8X STYLE argument
17 CHARACTER LINE(3,NUMATM)*15, TYPE(3)*1, OPTDAT(MAXPAR)*14
18 CHARACTER TXTATM*8, BLANK*80, ELEMNT(107)*2, SIMBOL*10, LTXT*1
34 10 IGEO(J,I)=-1
36 20 IGEO(LOC(2,I),LOC(1,I))=-2
44 30 CONTINUE
83 40 CONTINUE
100 50 CONTINUE
113 60 CONTINUE
[all …]
|