Gabriele Cosmo
7 lines
115 B
FortranFixed
7 lines
115 B
FortranFixed
SUBROUTINE OCLOSE(IUNIT)
|
|
IMPLICIT NONE
|
|
INTEGER IUNIT
|
|
CLOSE(IUNIT)
|
|
RETURN
|
|
END
|