PGI Fortran Reference manual - The Portland Group

3F Functions and VAX Subroutinesddis the two-digit day of the monthmmmis the three-character abbreviation of the monthyyis the last two digits of the yearEXITThe EXIT subroutine causes program termination, closes all open files, and returns control to theoperating system. It has the form:CALL EXIT[(exit_status)]Where:exit_statusis an optional integer argument used to specify the image exit value.GETARGThe GETARG subroutine returns the Nth command line argument in character variable ARG. ForN equal to zero, the name of the program is returned.SUBROUTINE GETARG(N, ARG)INTEGER*4 NCHARACTER*(*) ARGIARGCThe IARGC subroutine returns the number of command line arguments following the programname.INTEGER*4 FUNCTION IARGC()IDATEThe IDATE subroutine returns three integer values representing the current month, day, and year.It has the form:CALL IDATE(IMONTH, IDAY, IYEAR)If the current date were October 9, 2004, the values of the integer variables upon return would be:IMONTH = 10IDAY = 9IYEAR = 04MVBITSThe MVBITS subroutine transfers a bit field from one storage location (source) to a field in asecond storage location (destination). MVBITS transfers a3 bits from positions a2 through (a2 +a3 - 1) of the source, src, to positions a5 through (a5 + a3 - 1) of the destination, dest. Other bitsof the destination location remain unchanged. The values of (a2 + a3) and (a5 + a3) must be lessPGI Fortran Reference Guide 213