12 lines
372 B
Fortran
12 lines
372 B
Fortran
C-----------------------------------------------------------------------
|
|
C Convert to standard working notation
|
|
C-----------------------------------------------------------------------
|
|
SUBROUTINE SGLPAK (L,IER)
|
|
DIMENSION L(4)
|
|
IF ( L(2) .LT. 12 ) IER = 4
|
|
IF (L(2) .GT. 17) IER = 4
|
|
L(1) = L(2)
|
|
L(2) = 3
|
|
RETURN
|
|
END
|