------------------------------------- POSITION # TYPE --------------------- 1-4 (4) (A) Format code (CCDA = CIRA Climate Data Archive) 5-7 (3) (I) HEADI(1) data source code 8-10 (3) (I) HEADI(2) parameter number or code 11-11 (1) (I) HEADI(3) data type (1=real*4, 2=int*4, 3=int*2, 4=byte) non-VMS (5=real*4, 6=int*4, 7=int*2) 12-12 (1) blank 13-14 (2) y2k start time century (either 19 or 20) if blank then defaults to 19 15-16 (2) y2k end time century (either 19 or 20) if blank then defaults to 19 17-18 (2) (I) HEADI(4) start year 19-21 (3) (I) HEADI(5) start jul day 22-23 (2) (I) HEADI(6) start hour 24-25 (2) (I) HEADI(7) end year 26-28 (3) (I) HEADI(8) end jul day 29-30 (2) (I) HEADI(9) end hour 31-34 (4) (I) HEADI(10) xsize number horizontal data points 35-38 (4) (I) HEADI(11) ysize number vertical data points 39-44 (6) (F) HEADR(1) dx horizontal degree spacing (+ for W to E) 45-50 (6) (F) HEADR(2) dy vertical degree spacing (- for N to S) 51-57 (7) (F) HEADR(3) latitude of first data location ( + for NH ) 58-65 (8) (F) HEADR(4) longitude of western most data location 66-76 (11) (E) offset for data (add to data after applying scale) 77-87 (11) (E) scale factor for data (multiply data by this) 88-98 (11) (E) ZINDEF indefinite value 99-104 (6) blanks 105-144 (40) (A) LABEL character label (40 bytes) Fortran read statement to parse out the character header buffer READ(1,REC=1,ERR=92) BUFF(1:144) READ(BUFF,11)TAPEC,(HEADI(J),J=1,3),BLANK1, IY2K1, IY2K2, > (HEADI(J),J=4,11), > (HEADR(J),J=1,4), > OFFSET,SCALE,ZINDEF, > BLANK6,LABEL C 11 FORMAT( A4, I3, I3, I1, A1, I2, I2, I2, I3, I2, I2, I3, I2, > I4, I4, F6.2, F6.2, F7.3, F8.3, > E11.5, E11.5, E11.5, A6, A40)