SUBROUTINE readrika (iounit, iswitch, iseq, hstat, hcntr, & rlat, rlon, rheit, & rmonv, rannv, rannv2, iyearb, iyeare, irtn) * "Rika Nenpyoo" no sekai no kion to koosui-ryoo no "data" o yomu. IMPLICIT NONE INTEGER iounit, iswitch, iseq, iyearb, iyeare, irtn REAL rlat, rlon, rheit, rmonv(12), rannv, rannv2 CHARACTER*25 hstat, hcntr CHARACTER*178 hrbuf * INTEGER ilat, ilatd, ilatm, ilon, ilond, ilonm * IF (iswitch .EQ. 1) THEN * kion READ(iounit, '(A)', END=9900) hrbuf( 1:177) READ(hrbuf, 510) iseq, hstat, hcntr, & ilat, ilon, & rheit, rmonv, rannv, rannv2, iyearb, iyeare 510 FORMAT(I5, 2A25, I6, I7, F6.0, 12F6.0, F6.0, F7.0, & 2I6 ) IF ( hrbuf(147:152) .EQ. ' ') THEN irtn = 1 ELSE irtn = 0 END IF ELSE * ame READ(iounit, '(A)', END=9900) hrbuf( 1:178) READ(hrbuf, 520) iseq, hstat, hcntr, & ilat, ilon, & rheit, rmonv, rannv, rannv2, iyearb, iyeare 520 FORMAT(I5, 2A25, I6, I7, F6.0, 12F6.0, 2F7.0, 2I6 ) IF ( hrbuf(147:153) .EQ. ' ') THEN irtn = 1 ELSE irtn = 0 END IF END IF ilatd = abs(ilat) / 100 ilatm = mod( abs(ilat) , 100) rlat = ilatd + ilatm/60.0 IF (ilat .LT. 0) rlat = -rlat ilond = abs(ilon) / 100 ilonm = mod( abs(ilon) , 100) rlon = ilond + ilonm/60.0 IF (ilon .LT. 0) rlon = -rlon RETURN 9900 CONTINUE * * end of file irtn = -1 RETURN END