TIME12(ITIME,ITT)        1型の時刻を2型の時刻に変換する.            
                                                                       
  TIME13(ITIME,IH,IM,IS)   1型の時刻を3型の時刻に変換する.            
                                                                       
  TIME21(ITIME,ITT)        2型の時刻を1型の時刻に変換する.            
                                                                       
  TIME23(IH,IM,IS,ITT)     2型の時刻を3型の時刻に変換する.            
                                                                       
  TIME31(ITIME,IH,IM,IS)   3型の時刻を1型の時刻に変換する.            
                                                                       
  TIME32(IH,IM,IS,ITT)     3型の時刻を2型の時刻に変換する.            
                                                                       
  TIMEQ1(ITIME)            現在の1型の時刻を求める.                   
                                                                       
  TIMEQ2(ITT)              現在の2型の時刻を求める.                   
                                                                       
  TIMEQ3(IH,IM,IS)         現在の3型の時刻を求める.                   
                                                                       
  TIMEC1(CFORM,ITIME)      ITIMEをCFORMに従って表現してCFORMで返す.   
                                                                       
  TIMEC2(CFORM,ITT)        ITTをCFORMに従って表現してCFORMで返す.     
                                                                       
  TIMEC3(CFORM,IH,IM,IS)   IH,IM,                                      
                           ISをCFORMに従って表現してCFORMで返す.      
                                                                       
CFORM中で使えるキーとなる文字は, 'H' : 時, 'M' : 分,'S' : 秒, である.たとえばITIME=100930 に対してCFORM='HH:MM:SS' と指定してTIMEC1を呼ぶとCFORM='10:09:30'が返される.
時刻の型を変換する.
TIME12 : 1型の時刻を2型の時刻に変換する.
TIME13 : 1型の時刻を3型の時刻に変換する.
TIME21 : 2型の時刻を1型の時刻に変換する.
TIME23 : 2型の時刻を3型の時刻に変換する.
TIME31 : 3型の時刻を1型の時刻に変換する.
TIME32 : 3型の時刻を2型の時刻に変換する.
CALL TIME12(ITIME,ITT)
CALL TIME13(ITIME,IH,IM,IS)
CALL TIME21(ITIME,ITT)
CALL TIME23(IH,IM,IS,ITT)
CALL TIME31(ITIME,IH,IM,IS)
CALL TIME32(IH,IM,IS,ITT)
    
                              
  ITIME   (I)   1型の時刻.   
                              
  IH      (I)   時.           
                              
  IM      (I)   分.          
                              
  IS      (I)   秒.          
                              
  ITT     (I)   通しの秒数.  
                              
  
  
現在の時刻を求める.
TIMEQ1 : 現在の1型の時刻を求める.
TIMEQ2 : 現在の2型の時刻を求める.
TIMEQ3 : 現在の3型の時刻を求める.
TIMEQ1(ITIME)
TIMEQ2(ITT)
TIMEQ3(IH,IM,IS)
    
                              
  ITIME   (I)   1型の時刻.   
                              
  IH      (I)   時.           
                              
  IM      (I)   分.          
                              
  IS      (I)   秒.          
                              
  ITT     (I)   通しの秒数.  
                              
  
  
フォーマットを指定して時刻を文字列で表現する.
TIMEC1 : 1型の時刻を文字列で表現する.
TIMEC2 : 2型の時刻を文字列で表現する.
TIMEC3 : 3型の時刻を文字列で表現する.
CALL TIMEC1(CFORM,ITIME)
CALL TIMEC2(CFORM,ITT)
CALL TIMEC3(CFORM,IH,IM,IS)
    
                                                                        
  ITIME   (I)       1型の時刻.                                         
                                                                        
  IH      (I)       時.                                                 
                                                                        
  IM      (I)       分.                                                
                                                                        
  IS      (I)       秒.                                                
                                                                        
  ITT     (I)       通しの秒数.                                        
                                                                        
  CFORM   (C*(*))   時刻のフォーマット.                                
                    入力パラメータでもあり,出力パラメーターでもある.  
                    CFORM中で使えるキーとなる文字は, 'H' : 時, 'M' :   
                    分,'S' : 秒,である. たとえばITIME=100930         
                    に対してCFORM='HH:MM:SS'                            
                    と指定してTIMEC1を呼ぶとCFORM='10:09:30'が返される  
                    .                                                  
                                                                        
  
  
NUMAGUTI Atusi <a1n@gfdl.gov> Last Modified: Thu Aug 31 13:04:13 EDT 1995