C*    SFSGV - GET NEXT VARIABLE FROM LIST OF VARIABLES
      SUBROUTINE SFSGV ( IPS, NXLET, IOUT, IHEAD)
      INCLUDE 'SFSCM.FTN/NOLIIST'
      DIMENSION IOUT(1)
      DATA IBLNK/'  '/
 210  N = IPS*2 - 1
      CALL ICSGC (IVARI,  N , IP, ICHR)
      IF (ICHR) 220, 260, 220
 220  CONTINUE
      CALL SIVFL (IBLNK, IOUT, 9)
      CALL SMCHR (IVARI, IP, IOUT, 1, ICHR)
      I = (ICHR + 2) / 2 + IPS
      IPS = IVARI(I)
      IHEAD = IVARI(I+1)
      RETURN
 260  NXLET = NXLET + 1
      IF (NXLET - 27) 270, 270, 280
 270  IPS = IPVEC(NXLET)
      GO TO 210
 280  IHEAD = 0
      RETURN
      END