|
molscat
|
|
README,
README.jkl,
README.v12,
dblas.f,
dblas.f.Z,
dcs_save.f,
diag_eispack.f,
ghm_save.f,
ghm_subs.f,
ghm_vib.f,
ident2disting.f,
lapack.f,
lapack.f.Z,
prbr_save.f,
prbr_vib.f,
read_isigu.f,
restrt.v12.f,
sbe.doc,
sbe_save.f,
sig_save.f,
spline.f,
syminv.f,
test1.input,
test1.v12.out,
test1.v14.out,
test2.input,
test2.v12.out,
test2.v14.out,
test3.f,
test3.input,
test3.v12.input,
test3.v12.out,
test3.v14.out,
test5.f,
test5.input,
test5.v12.out,
test5.v14.out,
test6.input,
test6.v12.out,
test6.v14.out,
test8.input,
test8.v12.out,
test8.v14.out,
timers.f,
timers_c.c,
v12.f,
v14.doc.tar,
v14.f,
v14.f.Z,
version_12.doc,
version_14.doc,
version_14.tutorial,
|
|
|
SUBROUTINE GCLOCK(XTIME)
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C
C THIS ROUTINE IS MACHINE-DEPENDENT.
C IT SHOULD RETURN THE ELAPSED CPU TIME IN UNITS OF SECONDS.
C ONLY DIFFERENCES ARE USED, SO IT NEED NOT BE AN ABSOLUTE VALUE.
C
C CODE BELOW IS FOR THE UNIX FORTRAN COMPILER.
C DIMENSION TTIME(2)
C TIME=etime(TTIME)
C XTIME=TIME
C
C CODE BELOW IS FOR RS/6000 VL FORTRAN
ITIME=MCLOCK()
XTIME=ITIME
XTIME=XTIME*1.D-2
C
C CODE BELOW IS THE GISS ROUTINE
C CALL CLOCKS(ITIME)
C XTIME=-ITIME
C XTIME=XTIME*1.D-2
C
RETURN
END
SUBROUTINE GDATE(CDATE)
C
C THESE ROUTINES ARE MACHINE-DEPENDENT, AND MUST BE SIMULATED.
C THEY SHOULD RETURN STRINGS CONTAINING THE CURRENT DATE & TIME.
C
C AIX 3.1 DOES NOT SUPPORT FDATE, SO THIS VERSION USES JWD'S C VERSION.
C
CHARACTER BOTH*24, CDATE*11, CTIME*9
CALL fdate(BOTH)
CDATE=BOTH(9:10)//BOTH(4:7)//BOTH(20:24)
RETURN
ENTRY GTIME(CTIME)
CALL fdate(BOTH)
CTIME=BOTH(11:19)
RETURN
END
|
