blob: 0fa81f678099560e6a98be5942eb6e48353a65e9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
IMPLICIT NONE
LOGICAL ERROR
CHARACTER*12 FORM
DATA ERROR /.FALSE./
DATA FORM /' '/
OPEN(UNIT=60,ACCESS='DIRECT',STATUS='SCRATCH',RECL=255)
INQUIRE(UNIT=60,FORM=FORM)
IF (FORM.EQ.'UNFORMATTED') THEN
ERROR = .FALSE.
ELSE
ERROR = .TRUE.
ENDIF
CLOSE(UNIT=60)
IF (ERROR) CALL ABORT
END
|