INTEGER FUNCTION EXDB (TITLE, VERSION, IOPCODE)

ARGUMENTS

OUT

EXDB     date time stamp in integer form                 integer

IN

TITLE    Title of the program being executed.            character *(*)
         (First 7 characters are printed)
VERSION  Version of the program being executed.          character *(*)
         (First 10 characters are printed)
CODE     Letter code defined in function 'IOPDATM'       character *(*)
         (Maximum of 7 characters)

DESCRIPTION

EXAMPLE

        program try
        external exdb,exfin
        integer exdb,exfin,i,j
c       The code from IOPDATM must be in capital letters
c       ie: 'OUI','NON','OPRUN', etc.
        i=exdb('try','v10.1','OUI')
        do 100 i=1,10000
           j=j+j/i
  100   continue
        i=exfin('try','v10.1','NON')
        end

SEE ALSO