1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
SUBROUTINE EXTRAP_MAIN(ARGS,DIMARGS)
IMPLICIT NONE
INTEGER DIMARGS
CHARACTER*80 ARGS(DIMARGS)
INTEGER NATOMS, zFREE, zSCFGD, zTOTGD
#include "machsp.com"
#include "icore.com"
#include "istart.com"
IF (DIMARGS.EQ.0) THEN
PRINT *, '@EXTRAP_MAIN: unspecified argument'
CALL ERREX
END IF
CALL GETREC(1, "JOBARC", "NREALATM", 1, NATOMS)
zSCFGD = I0
zTOTGD = zSCFGD + 3*NATOMS*IINTFP
zFREE = zTOTGD + 3*NATOMS*IINTFP
IF (zFREE-I0.GT.ICRSIZ) cALL INSMEM('EXTRAP_MAIN',zFREE-1,ICRSIZ)
CALL EXTRAP_GRAD(ICORE(zSCFGD),ICORE(zTOTGD),NATOMS,ARGS(1))
RETURN
END
|
