INTEGER FUNCTION IOPDATM (OPCODE)

ARGUMENTS

OUT

IOPDATM  date time stamp in integer form                 integer

IN

OPCODE  Code to be searched for matching CMC date        character *(*)
         time stamp. (Maximum of 7 characters)




 'NON'    - will return CMC Date Time Stamp of '2010101011'


 'NOW'    - will return CMC Date Time Stamp of the current time.


 'OUI'    - as if code was set to 'OPRUN' and will look in file


          ~afsisio/datafiles/data/uspmadt for the date time stamp
               corresponding to 'OPRUN'


 'YYJJJZZ'- 7 digits representing year (YY), julian day (JJJ) and


            hour (ZZ) (00 to 24) and the function will return the


            corresponding date time stamp for it.


 '[code]' - character code to look up in ~afsisio/datafiles/data/uspmadt


            for corresponding date time stamp


 '[filename]'- open the file 'filename' in current directory and read


            the date time stamp (should be first word in the file).




 When an error occurs, the value of '010101011' will be returned.

DESCRIPTION

EXAMPLE

         program try
         integer i,iopdatm
         external iopdatm
         i = iopdatm('OPRUN')
         print *,'OPRUN iopdatm=',i
         i = iopdatm('NON')
         print *,'NON iopdatm=',i
         i = iopdatm('NOW')
         print *,'NOW iopdatm=',i
         stop
         end

SEE ALSO