C     CONVERTED BY CONVRT:  TSCON.01B                                      00100
      SUBROUTINE READER(UNIT,TARGET)                                       00110
C     -----------READ LANDLOCKED BOX2 MAP INTO @TARGET(16202)              00120
C                FROM INTEGER &UNIT.                                       00130
C                     1H. = LAND                                           00140
C                     1H* = COASTAL                                        00150
C                     1H  = SEA                                            00160
C     -----------REVISION HISTORY--------------------------------------    00170
C      LEVEL AUTHOR DATE       DESCRIPTION                                 00180
C      ===== ====== ========== ====================                        00190
C      .01A. SDW    85/02/15.  ORIGINAL VERSION TAKEN FROM LLLIBS.01J.     00200
C      .01B. SL     85/02/15.  REPLACE ALL R1 FORMAT DESCRIPTORS WITH      00210
C                              A1.  REMOVE CONVERT TO INTEGER ENTRY.       00220
C                              REMOVE ALL END= FROM READ STATEMENTS.       00230
C                              REVISED COMMENTS.  CONVERT FROM             00240
C                              TIMESHARING FORTRAN.                        00250
C     -----------------------------------------------------------------    00260
      IMPLICIT INTEGER(A-E,G-Z)                                            00270
      DIMENSION TARGET(16202)                                              00280
C     -----------READ, @TARGET WILL REMAIN IN A1 WITH NO CONVERSION        00290
      READ(UNIT,100) TARGET(1)                                             00300
  100 FORMAT(///,6X,A1)                                                    00310
      DO 300 KLAT=1,90                                                     00320
        KLON1=(KLAT-1)*180+2                                               00330
        KLON2=KLON1+89                                                     00340
        READ(UNIT,200) (TARGET(I),I=KLON1,KLON2)                           00350
  200   FORMAT(6X,90A1)                                                    00360
  300 CONTINUE                                                             00370
      READ(UNIT,350)                                                       00380
  350 FORMAT(3(/))                                                         00390
      DO 500 KLAT=1,90                                                     00400
        KLON1=(KLAT-1)*180+92                                              00410
        KLON2=KLON1+89                                                     00420
        READ(UNIT,200) (TARGET(I),I=KLON1,KLON2)                           00430
  500 CONTINUE                                                             00440
      READ(UNIT,600) TARGET(16202)                                         00450
  600 FORMAT(95X,A1)                                                       00460
      END                                                                  00470