C ThePROGRAM Hello
REAL a(2,2)
C a = (/1.0,2.0,3.0,4.0/) instead try :
DATA A /1.0,2.0,3.0,4.0/
CALL Test(a)
print*,a(1,1)
C CONTAINS
END
SUBROUTINE Test(a)
REAL a(2,2)
a(1,1)=a(1,1)+9.0
RETURN
END
The subroutine can be compiled as a separate program and linked to the...
The array variable may be equivalenced to a matrix, the first dimension of which is set to N * M. Example :
DIMENSION A(10000) , B(100,100)
EQUIVALENCE (A , B )
CHARACTER FILENAME * 100 , NUMBER * 3
........
DO 50 IFILE = 1 , 100
WRITE(NUMBER,'(I3)') IFILE
FILENAME = NUMBER//other...
Check the registry settings
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
and [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
If there is a value named HideClock with data = 1, change it to 0.
In the OPEN statement, the FILE parameter is used to specify the file name. Example : FILE='c:\data\innfile', for a fixed name or FILE=filename where filename is a character variable.
The unit number will be used as a file reference when reading data from the file. Unit 5 is probably the keyboard. ORGANIZATION refers to the logical file structure. You can omit it in the example as SEQUENTIAL is default.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.