Home
last modified time | relevance | path

Searched refs:ABPRT (Results 1 – 1 of 1) sorted by relevance

/dports/biology/mopac/mopac7-1.15/fortran/
H A Diter.f92 SAVE ICALCN, DEBUG, PRTFOK, PRTEIG, PRTDEN, PRT1EL, ABPRT
97 CHARACTER KEYWRD*241, ABPRT(3)*5, GETNAM*80 local
105 DATA ABPRT/' ','ALPHA',' BETA'/
703 2 ABPRT(J),NITER
706 IF (PRTEIG) WRITE(6,330)ABPRT(J),NITER,(EIGS(I),I=1,NORBS)
771 1''ITERATION'',I3)')ABPRT(3),NITER
774 IF (PRTEIG) WRITE(6,330)ABPRT(3),NITER,(EIGB(I),I=1,NORBS)