Fortran Wiki
fdate (Rev #8, changes)

Showing changes from revision #7 to #8: (追記) Added (追記ここまで) | (削除) Removed (削除ここまで) | (削除) Chan (削除ここまで)(追記) ged (追記ここまで)

This program shows the usage of the intrinsic DATE_AND_TIME procedure.

(削除) Note (削除ここまで)(追記) Examples: (追記ここまで)(削除) that (削除ここまで)(削除) to (削除ここまで)(削除) crack (削除ここまで)(削除) the (削除ここまで)(削除) command (削除ここまで)(削除) line (削除ここまで)(削除) header, (削除ここまで)(削除) it (削除ここまで)(削除) uses (削除ここまで)(削除) the (削除ここまで)(削除) module (削除ここまで)(削除) M_kracken (削除ここまで)(削除) . (削除ここまで)

 fdate
 2009年09月30日 02:08:26-04:00
 fdate %Y%M%D
 20090930

(削除) !----------------------------------------------------------------------------------------------------------------------------------- (削除ここまで)(追記) program (追記ここまで)(削除) 
 (削除ここまで)(追記) fdate (追記ここまで)(削除) ! This program needs the following file to crack the command line (削除ここまで)(追記) 
 (追記ここまで)(削除) 
 (削除ここまで)(削除) include (削除ここまで)(削除)  (削除ここまで)(削除) "kracken.f90" (削除ここまで)(削除) 
 (削除ここまで)(削除) !----------------------------------------------------------------------------------------------------------------------------------- (削除ここまで)(削除) 
 (削除ここまで)(削除) PROGRAM (削除ここまで)(削除)  (削除ここまで)(削除) fdate (削除ここまで)(削除) 
 (削除ここまで)!
! "@(#) fdate(1) writes timestamp using specified syntax"
!(削除) USE (削除ここまで)(追記) implicit (追記ここまで) (削除) m_kracken (削除ここまで)(追記) none (追記ここまで)(追記) 
 (追記ここまで)(追記) 
 (追記ここまで) !(削除) command (削除ここまで)(追記) returned (追記ここまで)(削除) line (削除ここまで)(追記) values (追記ここまで)(削除) parameter (削除ここまで)(追記) from (追記ここまで)(削除) cracking (削除ここまで)(追記) DATE_AND_TIME() (追記ここまで)(削除) module (削除ここまで)(削除) IMPLICIT (削除ここまで)(追記) character (追記ここまで)(削除)  (削除ここまで)(削除) NONE (削除ここまで)(削除) 
 (削除ここまで)(削除) INTEGER (削除ここまで)(削除)  (削除ここまで)(削除) , (削除ここまで)(削除)  (削除ここまで)(削除) PARAMETER (削除ここまで)(削除)  (削除ここまで)(削除) :: (削除ここまで)(削除)  (削除ここまで)(削除) clen (削除ここまで)(削除) = (削除ここまで)(削除) 255 (削除ここまで)(削除)  (削除ここまで)(削除) ! length of format (削除ここまで)(削除) 
 (削除ここまで)(削除) CHARACTER (削除ここまで)(len=(削除) clen (削除ここまで)(削除) ) (削除ここまで)(削除)  (削除ここまで)(削除) :: (削除ここまで)(削除)  (削除ここまで)(削除) format (削除ここまで)(削除)  (削除ここまで)(削除) ! input format string (削除ここまで)(削除) 
 (削除ここまで)(削除) INTEGER (削除ここまで)(削除)  (削除ここまで)(削除) :: (削除ここまで)(削除)  (削除ここまで)(削除) ilen (削除ここまで)(削除) 
 (削除ここまで)(削除) INTEGER (削除ここまで)(削除)  (削除ここまで)(削除) :: (削除ここまで)(削除)  (削除ここまで)(削除) ier (削除ここまで)(削除) 
 (削除ここまで)(削除) INTEGER (削除ここまで)(削除)  (削除ここまで)(削除) :: (削除ここまで)(削除)  (削除ここまで)(削除) i10 (削除ここまで)(削除) 
 (削除ここまで)(削除) CHARACTER (削除ここまで)(削除) ( (削除ここまで)(削除) LEN (削除ここまで)(削除) = (削除ここまで)8) :: date(追記)  (追記ここまで)(追記)  (追記ここまで)(追記)  (追記ここまで)(追記)  (追記ここまで)(追記) 
 (追記ここまで)(削除) ! (削除ここまで)(追記) character (追記ここまで)(削除) returned (削除ここまで)(削除) values (削除ここまで)(削除) from (削除ここまで)(削除) DATE_AND_TIME() (削除ここまで)(削除) 
 (削除ここまで)(削除) CHARACTER (削除ここまで)((削除) LEN (削除ここまで)(追記) len (追記ここまで)=10) :: time(削除) CHARACTER (削除ここまで)(追記) character (追記ここまで)((削除) LEN (削除ここまで)(追記) len (追記ここまで)=5) :: zone(削除) INTEGER (削除ここまで)(追記) integer (追記ここまで),(削除) DIMENSION (削除ここまで)(追記) dimension (追記ここまで)(8) :: values(削除) LOGICAL (削除ここまで)(追記) logical (追記ここまで) :: keyword ! flag that previous character was a % character(削除) CHARACTER (削除ここまで)(追記) character (追記ここまで)((削除) LEN (削除ここまで)(追記) len (追記ここまで)=1) :: char ! character being looked at in format string
(削除) !- (削除ここまで)(追記) character (追記ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) 
 (削除ここまで)(削除) ! CALL DATE_AND_TIME([DATE, TIME, ZONE, VALUES]) (削除ここまで)(削除) 
 (削除ここまで)(削除) ! (削除ここまで)(削除) 
 (削除ここまで)(削除) ! gets the corresponding date and time information from the real-time system clock. (削除ここまで)(削除) 
 (削除ここまで)(削除) ! DATE is INTENT(OUT) and has form ccyymmdd. (削除ここまで)(削除) 
 (削除ここまで)(削除) ! (Optional) The type shall be CHARACTER(8) or larger. (削除ここまで)(削除) 
 (削除ここまで)(削除) ! TIME is INTENT(OUT) and has form hhmmss.sss. (削除ここまで)(削除) 
 (削除ここまで)(削除) ! (Optional) The type shall be CHARACTER(10) or larger. (削除ここまで)(削除) 
 (削除ここまで)(削除) ! ZONE is INTENT(OUT) and has form (+-)hhmm, representing the difference with (削除ここまで)(削除) 
 (削除ここまで)(削除) ! respect to Coordinated Universal Time (UTC). (削除ここまで)(削除) 
 (削除ここまで)(削除) ! (Optional) The type shall be CHARACTER(5) or larger. (削除ここまで)(削除) 
 (削除ここまで)(削除) ! Unavailable time and date parameters return blanks. (削除ここまで)(削除) 
 (削除ここまで)(削除) ! (削除ここまで)(削除) 
 (削除ここまで)(削除) ! VALUES is INTENT(OUT) and provides the following: (削除ここまで)(削除) 
 (削除ここまで)(削除) ! (Optional) The type shall be INTEGER(8). (削除ここまで)(削除) 
 (削除ここまで)(削除) ! VALUE(1): The year (削除ここまで)(削除) 
 (削除ここまで)(削除) ! VALUE(2): The month (削除ここまで)(削除) 
 (削除ここまで)(削除) ! VALUE(3): The day of the month (削除ここまで)(削除) 
 (削除ここまで)(削除) ! VAlUE(4): Time difference with UTC in minutes (削除ここまで)(削除) 
 (削除ここまで)(削除) ! VALUE(5): The hour of the day (削除ここまで)(削除) 
 (削除ここまで)(削除) ! VALUE(6): The minutes of the hour (削除ここまで)(削除) 
 (削除ここまで)(削除) ! VALUE(7): The seconds of the minute (削除ここまで)(削除) 
 (削除ここまで)(削除) ! VALUE(8): The milliseconds of the second (削除ここまで)(削除) 
 (削除ここまで)(削除) ! (削除ここまで)(削除) 
 (削除ここまで)(削除) ! Example: (削除ここまで)(削除) 
 (削除ここまで)(削除) ! ! using keyword arguments (削除ここまで)(削除) 
 (削除ここまで)(削除) !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (削除ここまで)(削除) 
 (削除ここまで)(削除) ! crack command line (削除ここまで)(削除) 
 (削除ここまで)(削除) CALL (削除ここまで)(削除)  (削除ここまで)(削除) kracken (削除ここまで)((削除) 'fdate' (削除ここまで)(追記) len (追記ここまで)(削除) , (削除ここまで)(追記) =:), (追記ここまで)(削除) ' (削除ここまで)(追記) allocatable (追記ここまで)(削除) -help (削除ここまで)(削除) .F. (削除ここまで)(削除) -version (削除ここまで)(削除) .F.' (削除ここまで)(追記)  (追記ここまで)(追記) :: (追記ここまで)(追記)  (追記ここまで)(追記) format (追記ここまで)(追記) 
 (追記ここまで)(追記) integer (追記ここまで)(追記)  (追記ここまで)(追記) :: (追記ここまで)(追記)  (追記ここまで)(追記) i (追記ここまで)(追記) 
 (追記ここまで)(追記) call (追記ここまで)(追記)  (追記ここまで)(追記) get_cmd (追記ここまで)(追記) ( (追記ここまで)(追記) format (追記ここまで))(削除) 
 (削除ここまで)(削除) !- (削除ここまで)(追記) ! (追記ここまで)(削除) - (削除ここまで)(追記) get (追記ここまで)(削除) - (削除ここまで)(追記) the (追記ここまで)(削除) - (削除ここまで)(追記) format (追記ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) ! (削除ここまで)(削除)  (削除ここまで)(削除) display (削除ここまで)(削除) version (削除ここまで)(削除) number (削除ここまで) if(削除) --version (削除ここまで)(削除) is (削除ここまで)(削除) present (削除ここまで)(削除) 
 (削除ここまで)(削除) IF (削除ここまで)((削除) lget (削除ここまで)(追記) format. (追記ここまで)(削除) ( (削除ここまで)(追記) eq. (追記ここまで)(削除) 'fdate_version' (削除ここまで)(追記) '' (追記ここまで)(削除) )) (削除ここまで)(追記) ) (追記ここまで)(削除) THEN (削除ここまで)(追記) then (追記ここまで)
 (削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) 'fdate(1): version 1.0' (削除ここまで)(削除) 
 (削除ここまで)(削除) STOP (削除ここまで)(削除) 
 (削除ここまで)(削除) ENDIF (削除ここまで)(削除) 
 (削除ここまで)(削除) !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (削除ここまで)(削除) 
 (削除ここまで)(削除) ! display help text and exit if --help is present (削除ここまで)(削除) 
 (削除ここまで)(削除) IF (削除ここまで)(削除) ( (削除ここまで)(削除) lget (削除ここまで)(削除) ( (削除ここまで)(削除) 'fdate_help' (削除ここまで)(削除) )) (削除ここまで)(削除) THEN (削除ここまで)(削除) 
 (削除ここまで)(削除) CALL (削除ここまで)(削除)  (削除ここまで)(削除) usage (削除ここまで)(削除) () (削除ここまで)(削除) 
 (削除ここまで)(削除) ENDIF (削除ここまで)(削除) 
 (削除ここまで)(削除) !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (削除ここまで)(削除) 
 (削除ここまで)(削除) ! get format (削除ここまで)(削除) 
 (削除ここまで)format=(追記) '%Y-%M-%D %h:%m:%s%U' (追記ここまで)(追記) 
 (追記ここまで)(追記) else (追記ここまで)(追記) 
 (追記ここまで)(追記) format (追記ここまで)(追記) = (追記ここまで)(追記) format (追記ここまで)(追記) // (追記ここまで)' '
 (削除) CALL (削除ここまで)(追記) endif (追記ここまで)(追記) 
 (追記ここまで)(削除) retrev (削除ここまで)(追記) select (追記ここまで)(追記)  (追記ここまで)(追記) case (追記ここまで)((削除) 'fdate_oo' (削除ここまで)(削除) , (削除ここまで)(削除)  (削除ここまで)format(追記) (: (追記ここまで)(追記) 2 (追記ここまで)(追記) )) (追記ここまで)(追記) 
 (追記ここまで)(追記) case (追記ここまで)(追記) ( (追記ここまで)(追記) '-h' (追記ここまで),(削除)  (削除ここまで)(追記) '-H' (追記ここまで)(削除) ilen (削除ここまで)(削除) , (削除ここまで)(削除)  (削除ここまで)(削除) ier (削除ここまで))(追記) 
 (追記ここまで)(削除) ! (削除ここまで)(追記) call (追記ここまで)(削除) get (削除ここまで)(削除) any (削除ここまで)(削除) format (削除ここまで)(削除) before (削除ここまで)(削除) any (削除ここまで)(削除) keywords (削除ここまで)(削除) 
 (削除ここまで)(削除) !- (削除ここまで)(追記) usage (追記ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) 
 (削除ここまで)(追記) () (追記ここまで)(削除) ! write string, when encounter a percent character do a substitution (削除ここまで)(追記) 
 (追記ここまで)(削除) 
 (削除ここまで)(追記) end (追記ここまで)(追記)  (追記ここまで)(追記) select (追記ここまで)(追記) 
 (追記ここまで)keyword=(削除) .FALSE. (削除ここまで)(追記) .false. (追記ここまで)
 (削除) CALL (削除ここまで)(追記) call (追記ここまで) (削除) DATE_AND_TIME (削除ここまで)(追記) date_and_time (追記ここまで)((削除) DATE (削除ここまで)(追記) date (追記ここまで)=date,(削除) TIME (削除ここまで)(追記) time (追記ここまで)=time,(削除) ZONE (削除ここまで)(追記) zone (追記ここまで)=zone,(削除) VALUES (削除ここまで)(追記) values (追記ここまで)=values)
 (削除) IF (削除ここまで)(追記) ! (追記ここまで)(追記)  (追記ここまで)(追記) write (追記ここまで)(追記) string, (追記ここまで)(追記) when (追記ここまで)(追記) encounter (追記ここまで)(追記) a (追記ここまで)(追記) percent (追記ここまで)(追記) character (追記ここまで)(追記) do (追記ここまで)(追記) a (追記ここまで)(追記) substitution (追記ここまで)(削除) ( (削除ここまで)(追記) 
 (追記ここまで)(削除) ilen.le (削除ここまで)(追記) do (追記ここまで)(削除) .0 (削除ここまで)(追記)  (追記ここまで)(削除) ) (削除ここまで)(追記) i (追記ここまで)(削除) THEN (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*, (削除ここまで)(削除) '(A,1X,A,1X,A)' (削除ここまで)(削除) ) (削除ここまで)(削除) date (削除ここまで)(削除) , (削除ここまで)(削除) time (削除ここまで)(削除) , (削除ここまで)(削除) zone (削除ここまで)(削除) 
 (削除ここまで)(削除) ELSE (削除ここまで)(削除) 
 (削除ここまで)(削除) DO (削除ここまで)(削除)  (削除ここまで)(削除) i10 (削除ここまで)=1,(削除) ilen (削除ここまで)(追記) len (追記ここまで)(削除) 
 (削除ここまで)(追記) ( (追記ここまで)(追記) format (追記ここまで)(追記) ) (追記ここまで)(追記) 
 (追記ここまで)char=format((削除) i10 (削除ここまで)(追記) i (追記ここまで):(削除) i10 (削除ここまで)(追記) i (追記ここまで))(削除) IF (削除ここまで)(追記) if (追記ここまで)(char.eq.'%'.and..not.keyword)(削除) THEN (削除ここまで)(追記) then (追記ここまで)keyword=(削除) .TRUE. (削除ここまで)(追記) .true. (追記ここまで)(削除) CYCLE (削除ここまで)(追記) cycle (追記ここまで)(削除) ENDIF (削除ここまで)(追記) endif (追記ここまで)(削除) IF (削除ここまで)(追記) if (追記ここまで)(keyword)(削除) THEN (削除ここまで)(追記) then (追記ここまで)keyword=(削除) .FALSE. (削除ここまで)(追記) .false. (追記ここまで)(削除) SELECT (削除ここまで)(追記) select (追記ここまで) (削除) CASE (削除ここまで)(追記) case (追記ここまで)(char)(削除) CASE (削除ここまで)(追記) case (追記ここまで)('%'); (削除) WRITE (削除ここまで)(追記) write (追記ここまで)(*,(削除) '(A1)' (削除ここまで)(追記) '(a1)' (追記ここまで),(削除) ADVANCE (削除ここまで)(追記) advance (追記ここまで)=(削除) 'NO' (削除ここまで)(追記) 'no' (追記ここまで))char(削除) CASE (削除ここまで)(追記) case (追記ここまで)('Y'); (削除) WRITE (削除ここまで)(追記) write (追記ここまで)(*,(削除) '(I4.4)' (削除ここまで)(追記) '(i4.4)' (追記ここまで),(削除) ADVANCE (削除ここまで)(追記) advance (追記ここまで)=(削除) 'NO' (削除ここまで)(追記) 'no' (追記ここまで))values(1)(削除) CASE (削除ここまで)(追記) case (追記ここまで)('M'); (削除) WRITE (削除ここまで)(追記) write (追記ここまで)(*,(削除) '(I2.2)' (削除ここまで)(追記) '(i2.2)' (追記ここまで),(削除) ADVANCE (削除ここまで)(追記) advance (追記ここまで)=(削除) 'NO' (削除ここまで)(追記) 'no' (追記ここまで))values(2)(削除) CASE (削除ここまで)(追記) case (追記ここまで)('D'); (削除) WRITE (削除ここまで)(追記) write (追記ここまで)(*,(削除) '(I2.2)' (削除ここまで)(追記) '(i2.2)' (追記ここまで),(削除) ADVANCE (削除ここまで)(追記) advance (追記ここまで)=(削除) 'NO' (削除ここまで)(追記) 'no' (追記ここまで))values(3)(削除) CASE (削除ここまで)(追記) case (追記ここまで)('u'); (削除) WRITE (削除ここまで)(追記) write (追記ここまで)(*,(削除) '(I5.4)' (削除ここまで)(追記) '(i5.4)' (追記ここまで),(削除) ADVANCE (削除ここまで)(追記) advance (追記ここまで)=(削除) 'NO' (削除ここまで)(追記) 'no' (追記ここまで))values(4)(削除) CASE (削除ここまで)(追記) case (追記ここまで)('U'); (削除) WRITE (削除ここまで)(追記) write (追記ここまで)(*,(削除) '(I3.2)' (削除ここまで)(追記) '(3a)' (追記ここまで),(削除) ADVANCE (削除ここまで)(追記)  (追記ここまで)(追記) advance (追記ここまで)=(削除) 'NO' (削除ここまで)(追記) 'no' (追記ここまで))(削除) int (削除ここまで)(追記) zone (追記ここまで)((削除) values (削除ここまで)(追記) 1 (追記ここまで)(追記) : (追記ここまで)(追記) 3 (追記ここまで)(追記) ), (追記ここまで)(追記) ':' (追記ここまで)(追記) , (追記ここまで)(追記) zone (追記ここまで)(4(削除) )/ (削除ここまで)(追記) : (追記ここまで)(削除) 60 (削除ここまで)(追記) 5 (追記ここまで))(削除) WRITE (削除ここまで)(追記) case (追記ここまで)(削除) (*, (削除ここまで)(削除) '(I2.2)' (削除ここまで)(削除) , (削除ここまで)(削除) ADVANCE (削除ここまで)(削除) = (削除ここまで)(削除) 'NO' (削除ここまで)(削除) ) (削除ここまで)(削除) abs (削除ここまで)((削除) mod (削除ここまで)(削除) ( (削除ここまで)(削除) values (削除ここまで)(削除) ( (削除ここまで)(削除) 4 (削除ここまで)(削除) ), (削除ここまで)(削除) 60 (削除ここまで)(削除) )) (削除ここまで)(削除) 
 (削除ここまで)(削除) CASE (削除ここまで)(削除) ( (削除ここまで)'h'); (削除) WRITE (削除ここまで)(追記) write (追記ここまで)(*,(削除) '(I2.2)' (削除ここまで)(追記) '(i2.2)' (追記ここまで),(削除) ADVANCE (削除ここまで)(追記) advance (追記ここまで)=(削除) 'NO' (削除ここまで)(追記) 'no' (追記ここまで))values(5)(削除) CASE (削除ここまで)(追記) case (追記ここまで)('m'); (削除) WRITE (削除ここまで)(追記) write (追記ここまで)(*,(削除) '(I2.2)' (削除ここまで)(追記) '(i2.2)' (追記ここまで),(削除) ADVANCE (削除ここまで)(追記) advance (追記ここまで)=(削除) 'NO' (削除ここまで)(追記) 'no' (追記ここまで))values(6)(削除) CASE (削除ここまで)(追記) case (追記ここまで)('s'); (削除) WRITE (削除ここまで)(追記) write (追記ここまで)(*,(削除) '(I2.2)' (削除ここまで)(追記) '(i2.2)' (追記ここまで),(削除) ADVANCE (削除ここまで)(追記) advance (追記ここまで)=(削除) 'NO' (削除ここまで)(追記) 'no' (追記ここまで))values(7)(削除) CASE (削除ここまで)(追記) case (追記ここまで)('x'); (削除) WRITE (削除ここまで)(追記) write (追記ここまで)(*,(削除) '(I3.3)' (削除ここまで)(追記) '(i3.3)' (追記ここまで),(削除) ADVANCE (削除ここまで)(追記) advance (追記ここまで)=(削除) 'NO' (削除ここまで)(追記) 'no' (追記ここまで))values(8)(削除) CASE (削除ここまで)(追記) case (追記ここまで) (削除) DEFAULT (削除ここまで)(追記) default (追記ここまで)(削除) WRITE (削除ここまで)(追記) write (追記ここまで)(*,(削除) '(A1)' (削除ここまで)(追記) '(a1)' (追記ここまで),(削除) ADVANCE (削除ここまで)(追記) advance (追記ここまで)=(削除) 'NO' (削除ここまで)(追記) 'no' (追記ここまで))char(削除) END (削除ここまで)(追記) end (追記ここまで) (削除) SELECT (削除ここまで)(追記) select (追記ここまで)(削除) ELSE (削除ここまで)(追記) else (追記ここまで)(削除) WRITE (削除ここまで)(追記) write (追記ここまで)(*,(削除) '(A1)' (削除ここまで)(追記) '(a1)' (追記ここまで),(削除) ADVANCE (削除ここまで)(追記) advance (追記ここまで)=(削除) 'NO' (削除ここまで)(追記) 'no' (追記ここまで))char(削除) ENDIF (削除ここまで)(追記) endif (追記ここまで)(削除) ENDDO (削除ここまで)(追記) enddo (追記ここまで)(削除) WRITE (削除ここまで)(追記) write (追記ここまで)(*,*) 
(追記) 
 (追記ここまで)(削除) ENDIF (削除ここまで)(追記) contains (追記ここまで) 
(追記) 
 (追記ここまで)(削除) !- (削除ここまで)(追記) subroutine (追記ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) - (削除ここまで)(削除) 
 (削除ここまで)(追記) get_cmd (追記ここまで)(削除) END (削除ここまで)(追記) ( (追記ここまで)(削除)  (削除ここまで)(追記) command (追記ここまで)(削除) PROGRAM (削除ここまで)(追記) ) (追記ここまで)
(削除) !----------------------------------------------------------------------------------------------------------------------------------- (削除ここまで)(追記) character (追記ここまで)(削除) 
 (削除ここまで)(追記) ( (追記ここまで)(削除) SUBROUTINE (削除ここまで)(追記) len (追記ここまで)(削除)  (削除ここまで)(追記) =:), (追記ここまで)(削除) usage (削除ここまで)(追記) allocatable (追記ここまで)(追記) , (追記ここまで)(追記) intent (追記ここまで)(追記) ( (追記ここまで)(追記) out (追記ここまで)(追記) ) (追記ここまで)(追記)  (追記ここまで)(追記) :: (追記ここまで)(追記)  (追記ここまで)(追記) command (追記ここまで)(追記) 
 (追記ここまで)(追記) integer (追記ここまで)(追記)  (追記ここまで)(追記) :: (追記ここまで)(追記)  (追記ここまで)(追記) i (追記ここまで)(追記) , (追記ここまで)(追記)  (追記ここまで)(追記) j (追記ここまで)(追記) 
 (追記ここまで)(追記) character (追記ここまで)(追記) ( (追記ここまで)(追記) len (追記ここまで)(追記) =:), (追記ここまで)(追記) allocatable (追記ここまで)(追記)  (追記ここまで)(追記) :: (追記ここまで)(追記)  (追記ここまで)(追記) value (追記ここまで)(追記) 
 (追記ここまで)(追記) integer (追記ここまで)(追記)  (追記ここまで)(追記) :: (追記ここまで)(追記)  (追記ここまで)(追記) length (追記ここまで)(追記) 
 (追記ここまで)(追記) integer (追記ここまで)(追記)  (追記ここまで)(追記) :: (追記ここまで)(追記)  (追記ここまで)(追記) status (追記ここまで)(追記) 
 (追記ここまで)(追記) command (追記ここまで)(追記) = (追記ここまで)(追記) "" (追記ここまで)(追記) 
 (追記ここまで)(追記) status (追記ここまで)(追記) = (追記ここまで)(追記) 0 (追記ここまで)(追記) 
 (追記ここまで)(追記) ERRORS (追記ここまで)(追記) : (追記ここまで)(追記)  (追記ここまで)(追記) BLOCK (追記ここまで)(追記) 
 (追記ここまで)(追記) do (追記ここまで)(追記)  (追記ここまで)(追記) i (追記ここまで)(追記) = (追記ここまで)(追記) 1 (追記ここまで)(追記) , (追記ここまで)(追記) command_argument_count (追記ここまで)()(追記) call (追記ここまで)(追記)  (追記ここまで)(追記) get_command_argument (追記ここまで)(追記) ( (追記ここまで)(追記) i (追記ここまで)(追記) , (追記ここまで)(追記) length (追記ここまで)(追記) = (追記ここまで)(追記) length (追記ここまで)(追記) , (追記ここまで)(追記) status (追記ここまで)(追記) = (追記ここまで)(追記) status (追記ここまで)(追記) ) (追記ここまで)(追記) 
 (追記ここまで)(追記) if (追記ここまで)(追記) ( (追記ここまで)(追記) status.ne (追記ここまで)(追記) .0 (追記ここまで)(追記) ) (追記ここまで)(追記) exit (追記ここまで)(追記)  (追記ここまで)(追記) ERRORS (追記ここまで)(追記) 
 (追記ここまで)(追記) value (追記ここまで)(追記) = (追記ここまで)(追記) repeat (追記ここまで)(追記) ( (追記ここまで)(追記) ' ' (追記ここまで)(追記) , (追記ここまで)(追記) length (追記ここまで)(追記) ) (追記ここまで)(追記) 
 (追記ここまで)(追記) call (追記ここまで)(追記)  (追記ここまで)(追記) get_command_argument (追記ここまで)(追記) ( (追記ここまで)(追記) i (追記ここまで)(追記) , (追記ここまで)(追記) value (追記ここまで)(追記) = (追記ここまで)(追記) value (追記ここまで)(追記) , (追記ここまで)(追記) status (追記ここまで)(追記) = (追記ここまで)(追記) status (追記ここまで)(追記) ) (追記ここまで)(追記) 
 (追記ここまで)(追記) if (追記ここまで)(追記) ( (追記ここまで)(追記) status (追記ここまで)(追記)  (追記ここまで)(追記) /= (追記ここまで)(追記)  (追記ここまで)(追記) 0 (追記ここまで)(追記) ) (追記ここまで)(追記) exit (追記ここまで)(追記)  (追記ここまで)(追記) ERRORS (追記ここまで)(追記) 
	 (追記ここまで)(追記) command (追記ここまで)(追記) = (追記ここまで)(追記) command (追記ここまで)(追記) // (追記ここまで)(追記) ' ' (追記ここまで)(追記) // (追記ここまで)(追記) value (追記ここまで)(追記) 
 (追記ここまで)(追記) enddo (追記ここまで)(追記) 
 (追記ここまで)(追記) if (追記ここまで)(追記) ( (追記ここまで)(追記) len (追記ここまで)(追記) ( (追記ここまで)(追記) command (追記ここまで)(追記) ). (追記ここまで)(追記) gt (追記ここまで)(追記) .1 (追記ここまで)(追記) ) (追記ここまで)(追記)  (追記ここまで)(追記) command (追記ここまで)(追記) = (追記ここまで)(追記) command (追記ここまで)(追記) ( (追記ここまで)(追記) 2 (追記ここまで)(追記) :) (追記ここまで)(追記) 
 (追記ここまで)(追記) return (追記ここまで)(追記) 
 (追記ここまで)(追記) endblock (追記ここまで)(追記)  (追記ここまで)(追記) ERRORS (追記ここまで)(追記) 
 (追記ここまで)(追記) write (追記ここまで)(追記) (*, (追記ここまで)(追記) '(*(g0,1x))' (追記ここまで)(追記) ) (追記ここまで)(追記) '*get_cmd* error obtaining argument ' (追記ここまで)(追記) , (追記ここまで)(追記) i (追記ここまで)(追記) , (追記ここまで)(追記) 'status=' (追記ここまで)(追記) , (追記ここまで)(追記) status (追記ここまで)(追記) 
 (追記ここまで)(追記) stop (追記ここまで)(追記) 
 (追記ここまで)(追記) end (追記ここまで)(追記)  (追記ここまで)(追記) subroutine  (追記ここまで)(追記) get_cmd (追記ここまで)(追記) 
 (追記ここまで)(追記) subroutine  (追記ここまで)(追記) usage (追記ここまで)(追記) () (追記ここまで)(追記) 
 (追記ここまで)!! "@(#) usage(3f90) writes program help to stdout and exits!(削除) WRITE (削除ここまで)(追記) integer (追記ここまで)(削除) (*,*) (削除ここまで)(追記)  (追記ここまで)(削除) 'NAME' (削除ここまで)(追記) :: (追記ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(追記) i (追記ここまで)(削除) (*,*) (削除ここまで)(追記) 
 (追記ここまで)(削除) ' (削除ここまで)(追記) character (追記ここまで)(削除)  (削除ここまで)(削除)  (削除ここまで)(削除) fdate(1)' (削除ここまで)(削除) 
 (削除ここまで)(追記) ( (追記ここまで)(削除) WRITE (削除ここまで)(追記) len (追記ここまで)(削除) (*,*) (削除ここまで)(追記) =:), (追記ここまで)(追記) allocatable (追記ここまで)(追記)  (追記ここまで)(追記) :: (追記ここまで)(追記)  (追記ここまで)(追記) help_text (追記ここまで)(追記) (:) (追記ここまで)(追記) 
 (追記ここまで)(追記) help_text (追記ここまで)(追記) =[ (追記ここまで)(追記)  (追記ここまで)(追記) character (追記ここまで)(追記) ( (追記ここまで)(追記) len (追記ここまで)(追記) = (追記ここまで)(追記) 128 (追記ここまで)(追記) ) (追記ここまで)(追記)  (追記ここまで)(追記) :: (追記ここまで)(追記)  (追記ここまで)(追記) & (追記ここまで)(追記) 
 (追記ここまで)(追記) 'NAME ' (追記ここまで)(追記) ,& (追記ここまで)(追記) 
 (追記ここまで)(追記) ' fdate(1) ' (追記ここまで)(追記) ,& (追記ここまで)(追記) 
 (追記ここまで)(追記) ' ' (追記ここまで)(追記) ,& (追記ここまで)(追記) 
 (追記ここまで)(追記) 'SYNOPSIS ' (追記ここまで)(追記) ,& (追記ここまで)(追記) 
 (追記ここまで)(追記) ' fdate FORMAT ' (追記ここまで)(追記) ,& (追記ここまで)(追記) 
 (追記ここまで)(追記) ' ' (追記ここまで)(追記) ,& (追記ここまで)(追記) 
 (追記ここまで)(追記) 'DESCRIPTION ' (追記ここまで)(追記) ,& (追記ここまで)(追記) 
 (追記ここまで)(追記) ' Read the FORMAT string and replace the following strings ' (追記ここまで)(追記) ,& (追記ここまで)(追記) 
 (追記ここまで)(追記) ' %D -- day of month, 01 to 31 ' (追記ここまで)(追記) ,& (追記ここまで)(追記) 
 (追記ここまで)(追記) ' %M -- month of year, 01 to 12 ' (追記ここまで)(追記) ,& (追記ここまで)(追記) 
 (追記ここまで)(追記) ' %Y -- year, yyyy ' (追記ここまで)(追記) ,& (追記ここまで)(追記) 
 (追記ここまで)(追記) ' %h -- hours, 01 to 12 ' (追記ここまで)(追記) ,& (追記ここまで)(追記) 
 (追記ここまで)(追記) ' %m -- minutes, 00 to 59 ' (追記ここまで)(追記) ,& (追記ここまで)(追記) 
 (追記ここまで)(追記) ' %s -- sec, 00 to 59 ' (追記ここまで)(追記) ,& (追記ここまで)(追記) 
 (追記ここまで)(追記) ' %% -- % ' (追記ここまで)(追記) ,& (追記ここまで)(追記) 
 (追記ここまで)(追記) ' %u -- minutes from UTC ' (追記ここまで)(追記) ,& (追記ここまで)(追記) 
 (追記ここまで)(追記) ' %U -- -+hh:mm from UTC ' (追記ここまで)(追記) ,& (追記ここまで)(追記) 
 (追記ここまで)(追記) ' %x -- milliseconds ' (追記ここまで)(追記) ,& (追記ここまで)(追記) 
 (追記ここまで)(追記) ' Default: %Y-%M-%D %h:%m:%s%U ' (追記ここまで)(追記) ,& (追記ここまで)(追記) 
 (追記ここまで)(追記) ' ' (追記ここまで)(追記) ,& (追記ここまで)(追記) 
 (追記ここまで)(追記) 'EXAMPLES ' (追記ここまで)(追記) ,& (追記ここまで)(追記) 
 (追記ここまで)(追記) ' ' (追記ここまで)(追記) ,& (追記ここまで)(追記) 
 (追記ここまで)(追記) ' fdate The date is %Y/%M/%D %h:%m:%s ' (追記ここまで)(追記) ,& (追記ここまで)(追記) 
 (追記ここまで)(追記) ' The date is 2009年08月10日 00:33:48 ' (追記ここまで)(追記) ,& (追記ここまで)(追記) 
 (追記ここまで)(追記) ' ' (追記ここまで)(追記) ,& (追記ここまで)(追記) 
 (追記ここまで)(追記) ' fdate YEAR=%Y MONTH=%M DAY=%D HOUR=%h MINUTES=%m SECONDS=%s MILLISECONDS=%x' (追記ここまで)(追記) ,& (追記ここまで)(追記) 
 (追記ここまで)(追記) ' YEAR=2009 MONTH=08 DAY=10 HOUR=01 MINUTES=18 SECONDS=44 MILLISECONDS=946 ' (追記ここまで)(追記) ,& (追記ここまで)(追記) 
 (追記ここまで)''(削除) 
 (削除ここまで)(追記) ] (追記ここまで)(削除) WRITE (削除ここまで)(追記) 
 (追記ここまで)(削除) (*,*) (削除ここまで)(追記) write (追記ここまで)(削除) 'SYNOPSIS' (削除ここまで)(追記) (*, (追記ここまで)(削除) 
 (削除ここまで)(追記) '(a)' (追記ここまで)(削除) WRITE (削除ここまで)(追記) ) (追記ここまで)(削除) (*,*) (削除ここまで)(追記)  (追記ここまで)(削除) ' (削除ここまで)(追記) ( (追記ここまで)(削除)  (削除ここまで)(削除)  (削除ここまで)(削除) fdate (削除ここまで)(削除) FORMAT (削除ここまで)(削除) [--help (削除ここまで)(削除) ] (削除ここまで)(削除) [--version]' (削除ここまで)(削除) 
 (削除ここまで)(追記) trim (追記ここまで)(削除) WRITE (削除ここまで)(追記) ( (追記ここまで)(削除) (*,*) (削除ここまで)(追記) help_text (追記ここまで)(削除) '' (削除ここまで)(追記) ( (追記ここまで)(削除) 
 (削除ここまで)(追記) i (追記ここまで)(削除) WRITE (削除ここまで)(追記) )), (追記ここまで)(削除) (*,*) (削除ここまで)(追記) i (追記ここまで)(削除) 'DESCRIPTION' (削除ここまで)(追記) = (追記ここまで)(削除) 
 (削除ここまで)(追記) 1 (追記ここまで)(削除) WRITE (削除ここまで)(追記) , (追記ここまで)(削除) (*,*) (削除ここまで)(追記) size (追記ここまで)(削除) ' (削除ここまで)(追記) ( (追記ここまで)(削除)  (削除ここまで)(削除)  (削除ここまで)(削除) Read (削除ここまで)(削除) the (削除ここまで)(削除) FORMAT (削除ここまで)(削除) string (削除ここまで)(削除) and (削除ここまで)(削除) replace (削除ここまで)(削除) the (削除ここまで)(削除) following (削除ここまで)(削除) strings' (削除ここまで)(削除) 
 (削除ここまで)(追記) help_text (追記ここまで)(削除) WRITE (削除ここまで)(追記) )) (追記ここまで)(削除) (*,*) (削除ここまで)(追記) 
 (追記ここまで)(削除) ' (削除ここまで)(追記) stop (追記ここまで)(削除)  (削除ここまで)(削除)  (削除ここまで)(削除)  (削除ここまで)(削除)  (削除ここまで)(削除)  (削除ここまで)(削除) %D (削除ここまで)(削除) -- (削除ここまで)(削除) day (削除ここまで)(削除) of (削除ここまで)(削除) month, (削除ここまで)(削除) 01 (削除ここまで)(削除) to (削除ここまで)(削除) 31' (削除ここまで)(削除) WRITE (削除ここまで)(追記) end (追記ここまで)(削除) (*,*) (削除ここまで)(追記)  (追記ここまで)(削除) ' (削除ここまで)(追記) subroutine (追記ここまで)(削除)  (削除ここまで)(削除)  (削除ここまで)(削除)  (削除ここまで)(削除)  (削除ここまで)(削除)  (削除ここまで)(削除) %M (削除ここまで)(削除) -- (削除ここまで)(削除) month (削除ここまで)(削除) of (削除ここまで)(削除) year, (削除ここまで)(削除) 01 (削除ここまで)(削除) to (削除ここまで)(削除) 12' (削除ここまで)(削除) 
 (削除ここまで)(追記) usage (追記ここまで)(削除) WRITE (削除ここまで)(追記) 
 (追記ここまで)(削除) (*,*) (削除ここまで)(追記) end (追記ここまで)(削除) ' %Y -- year, yyyy' (削除ここまで)(追記)  (追記ここまで)(削除) 
 (削除ここまで)(追記) program  (追記ここまで)(削除) WRITE (削除ここまで)(追記) fdate (追記ここまで)(削除) (*,*) (削除ここまで)(削除) ' %h -- hours, 01 to 12' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) ' %m -- minutes, 00 to 59' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) ' %s -- sec, 00 to 59' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) ' %% -- %' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) ' %u -- minutes from UTC' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) ' %U -- -+hhmm from UTC' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) ' %x -- milliseconds' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) ' Default: %Y%M%D %h%m%s.%x %U' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) '' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) 'EXAMPLES' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) '' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) ' %fdate The date is %Y/%M/%D %h:%m:%s' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) ' The date is 2009年08月10日 00:33:48' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) '' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) ' %fdate YEAR=%Y MONTH=%M DAY=%D HOUR=%h MINUTES=%m SECONDS=%s MILLISECONDS=%x' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) ' YEAR=2009 MONTH=08 DAY=10 HOUR=01 MINUTES=18 SECONDS=44 MILLISECONDS=946' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) '' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) ' fdate ''"%D -- day of month, 01 to 31"''' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) ' fdate ''"%M -- month of year, 01 to 12"''' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) ' fdate ''"%Y -- year, yyyy"''' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) ' fdate ''"%h -- hours, 01 to 12"''' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) ' fdate ''"%m -- minutes, 00 to 59"''' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) ' fdate ''"%s -- sec, 00 to 59"''' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) ' fdate ''"%% -- %%"''' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) ' fdate ''"%u -- minutes from UTC"''' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) ' fdate ''"%U -- -+hhmm from UTC"''' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) ' fdate ''"%x -- milliseconds"''' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) ' fdate %Y%M%D %h%m%s.%x %U' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) '' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) 'AUTHOR' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) ' John S. Urban' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) '' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) 'COPYRIGHT' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) ' Copyright (C) 2009 John S. Urban' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) ' This is free software: you are free to change and redistribute it.' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) ' There is NO WARRANTY, to the extent permitted by law.' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) '' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) 'LIMITS' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) '' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) 'SEE ALSO' (削除ここまで)(削除) 
 (削除ここまで)(削除) WRITE (削除ここまで)(削除) (*,*) (削除ここまで)(削除) ' date(1)' (削除ここまで)(削除) 
 (削除ここまで)(削除) STOP (削除ここまで)(削除) 
 (削除ここまで)(削除) END (削除ここまで)(削除)  (削除ここまで)(削除) SUBROUTINE (削除ここまで)(削除)  (削除ここまで)(削除) usage (削除ここまで)(削除) 
 (削除ここまで)(削除) !----------------------------------------------------------------------------------------------------------------------------------- (削除ここまで)