Function CPUTim(Junk) Implicit Real*8(a-h,o-z) write(IOut,1000)NDays,NHours,NMin,Time return end function CPUTim(Junk) implicit Real*8(a-h,o-z) real TimArray(2),ETime CPUTim=ETime(TimArray) return end
It can be positive, negative, or zero. If no sign is present, the constant is assumed to be nonnegative. A double-precision constant has a double-precision exponent and an optional decimal point. Double-precision constants,REAL*8, use 8 bytes of storage. TheREAL*8notation is nonstandard....
For a declaration such as COMPLEX*8 W, the variable W is always two REAL*4 elements contiguous in memory, interpreted as a complex number.COMPLEX*16 @ For a declaration such as COMPLEX*16 W, W is always two REAL*8 elements contiguous in memory, interpreted as a double-width complex ...
IMPLICIT REAL (I,J) IMPLICIT INTEGER (A,B),REAL(I,K),INTEGER (X-Z) 注:(1) 以上三种方法中,以类型说明语句最优先,IMPLICIT语句次之,“I—N规则”的隐含约定级别最低。如下程序中IMAX变量为整型,而其它以I、J开头的变量为实型: IMPLICIT REAL(I,J) INTEGER IMAX (2) 类型说明语句和IMPLICIT语句是...
阅读下列FORTRAN77程序: F(X,Y)=X*X+Y*Y OPEN(8,FILE='FD.DAT,STATUS='NEW',ACCESS='DIRECr', *FORM='UNFORMATTED',RECL=16) D010K=1,6 P=F(REAL(K),REAL(K+1)) 10WRITE(8,REC=K)P CLOSE(8) OPEN(6,FILE='FD.DAT',STATUS='OLD',ACCESS='DIRECr', *FORM='UNFORMATTED',...
阅读下列FORTRAN77程序: F(X,Y)=X*X+Y*Y OPEN(8,FILE=’FD.DAT,STATUS=’NEW’,ACCESS=’DIRECr’, *FORM=’UNFORMATTED’,RECL=16) D010K=1,6 P=F(REAL(K),REAL(K+1)) 10WRITE(8,REC=K)P CLOSE(8) OPEN(6,FILE=’FD.DAT’,STATUS=’OLD’,ACCESS=’DIRECr’, *FORM=’UNFORMATTED...
3.不管数据的具体类型，一律以二进制的形式进行I/O操作。无格式的输入输出 要素：1．在什么外部设备上输入或输出 2．用什么格式输入输出 3．输入输出哪些数据 第三讲 格式输入输出 REAL*4I,J,KI=12345.67890J=98765.4321K=I*JWRITE(*,*)"I=",I,"7788J=",J,"K=",KEND 第一节 格式输入输出语句 格...
For a declaration such as REAL*4 W, the variable W is always a REAL*4 element in memory, interpreted as a single-width real number.REAL*8 @ For a declaration such as REAL*8 W, the variable W is always a REAL*8 element in memory, interpreted as a double-width real number. ...
REAL*16, COMPLEX*32 42 33 3 A LOGICAL*1 1 - - A LOGICAL*2, INTEGER*2 2 - - A LOGICAL*4, INTEGER*4 4 - - A REAL*4, COMPLEX*8 4 - - A REAL*8, COMPLEX*16 8 - - A REAL*16, COMPLEX*32 16 - - A CHARACTER*n n ...
A call to a REAL function returns REAL*8 A call to a DOUBLE PRECISION function returns REAL*8 A call to a COMPLEX function returns COMPLEX*16 A call to a DOUBLE COMPLEX function returns COMPLEX*16 Other options that alter the data sizes of default data types are -r8 and -dbl, ...