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...