blob: bdf955acac92ee6aa33e523239b36832483f1e94 (
plain)
1
2
3
4
5
6
7
8
|
CHARACTER*20 PARTD(6)
INTEGER*2 L
DATA (PARTD(L),L=1,6)/'A','B','C','D','E','F'/
IF ( PARTD(1) .NE. 'A' .OR. PARTD(2) .NE. 'B'
, .OR. PARTD(3) .NE. 'C' .OR. PARTD(4) .NE. 'D'
, .OR. PARTD(5) .NE. 'E' .OR. PARTD(6) .NE. 'F')
, CALL ABORT
END
|