12.07.2015 Views

PGI Fortran - Servidor WWW del Cluster Ladon-Hidra

PGI Fortran - Servidor WWW del Cluster Ladon-Hidra

PGI Fortran - Servidor WWW del Cluster Ladon-Hidra

SHOW MORE
SHOW LESS
  • No tags were found...

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

IARGCThe 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 lessthan or equal to 32 (less than or equal to 64 if the source or destination is INTEGER*8). It has theform:CALL MVBITS(src, a2, a3, dest, a5)Where:srca2a3is an integer variable or array element that represents the sourcelocation.is an integer expression that identifies the first position in the fieldtransferred from src.is an integer expression that identifies the length of the field transferredfrom src.3F Functions and VAX Subroutines 283

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!