getg2i.F90

Go to the documentation of this file.

 
 
SUBROUTINE getg2i(LUGI, CBUF, NLEN, NNUM, IRET)
  implicit none
  
  CHARACTER(LEN=1), POINTER, DIMENSION(:) :: CBUF
  INTEGER, INTENT(IN) :: LUGI
  INTEGER, INTENT(OUT) :: NLEN, NNUM, IRET
  CHARACTER CHEAD*162
  integer :: ios, istat, lbuf, lhead, nskp
 
  NULLIFY(cbuf)
  nlen = 0
  nnum = 0
  iret = 4
  CALL baread(lugi, 0, 162, lhead, chead)
  IF (lhead .EQ. 162 .AND. chead(42:47) .EQ. 'GB2IX1') THEN
     READ(chead(82:162), '(8X, 3I10, 2X, A40)', iostat = ios) nskp, nlen, nnum
     IF (ios .EQ. 0) THEN
        ALLOCATE(cbuf(nlen), stat = istat)    ! ALLOCATE SPACE FOR CBUF
        IF (istat .NE. 0) THEN
           iret = 2
           RETURN
        ENDIF
        iret = 0
        CALL baread(lugi, nskp, nlen, lbuf, cbuf)
        IF (lbuf .NE. nlen) iret = 3
     ENDIF
  ENDIF
END SUBROUTINE getg2i