CCL Home Page
Up Directory CCL timers.f
      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
Modified: Wed Mar 8 17:00:00 1995 GMT
Page accessed 4976 times since Sat Apr 17 21:25:32 1999 GMT