      SUBROUTINE GETICFCM(A,NIC,IICFCM)
C
C ROUTINE FETCHES INTERNAL OR CARTESIAN COORDINATE HESSIAN FROM FCMINT.
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      LOGICAL YESNO
c     Maximum string length of absolute file names
      INTEGER FNAMELEN
      PARAMETER (FNAMELEN=80)
      CHARACTER*(fnamelen) FNAME
      DIMENSION A(NIC,NIC)
      IICFCM=0
      CALL GFNAME('FCMINT  ',FNAME,ILENGTH)
      INQUIRE(FILE=FNAME(1:ILENGTH),EXIST=YESNO)
      IF(.NOT.YESNO)RETURN
c      OPEN(UNIT=50,FILE=FNAME(1:ILENGTH),FORM='UNFORMATTED',
      OPEN(UNIT=50,FILE=FNAME(1:ILENGTH),FORM='FORMATTED',
     &     STATUS='OLD')
c      REWIND(50)
      READ(50,*)((A(I,J),J=1,NIC),I=1,NIC)
      CLOSE(UNIT=50,STATUS='KEEP')
      WRITE(6,100)
100   FORMAT(T3,'@GETICFCM-I, Hessian read from FCMINT file.')
      IICFCM=1
      RETURN
      END
