PARAMETER(IDIM=360,JDIM=180,NSP=IDIM*JDIM,NT=12) REAL TM(NSP,12) OPEN(UNIT=1,FILE='ersst_oisst_1x1_clim_81-10.dat', % FORM='UNFORMATTED',ACCESS='DIRECT',RECL=NSP*4) deflt=-9999. DO JM=1,12 READ(1,REC=JM) (TM(I,JM),I=1,NSP) ENDDO stop END