Searched refs:IST1CS (Results 1 – 5 of 5) sorted by relevance
605 CHARACTER*12 IST1CS766 1IST1NA,IST1ST,IST1FO,IST1AC,IST1PR,IST1CS,
8878 CHARACTER*4 IST1CS local8882 SAVE IST1CS8920 IST1CS='CLOS'8923 IST1CS='OPEN'8938 IF(IST1CS.EQ.'OPEN')THEN9032 IF(ILAST .AND. IFLAGU.EQ.'FILE' .AND. IST1CS.EQ.'OPEN')THEN9042 IST1CS='CLOS'
5708 CHARACTER*4 IST1CS5712 SAVE IST1CS5750 IST1CS='CLOS'5753 IST1CS='OPEN'5762 IF(IST1CS.EQ.'OPEN')THEN5848 IF(ILAST .AND. IFLAGU.EQ.'FILE' .AND. IST1CS.EQ.'OPEN')THEN5858 IST1CS='CLOS'
4662 IST1CS='CLOSED'
28107 ICURS1=IST1CS