source: trunk/fsource/spsubs/sglpak.for @ 211

Last change on this file since 211 was 211, checked in by vondreele, 12 years ago

unfix includes

File size: 513 bytes
RevLine 
[57]1      SUBROUTINE SGLPAK(L,IER)
2
[211]3      INCLUDE       '../INCLDS/COPYRIGT.FOR' 
[57]4
5C       THIS PROGRAM WAS DEVELOPED FOR
6C                    THE DIVISION OF CHEMISTRY
7C                               OF
8C               THE NATIONAL RESEARCH COUNCIL OF CANADA
9C                               BY
10C       ALLEN C. LARSON, P.O.BOX 5898, SANTA FE, NM 87502,USA
11
12      DIMENSION     L(4)               
13
14      IF ( L(2).LT.12 ) IER=4
15      IF ( L(2).GT.17 ) IER=4
16      L(1) = L(2)
17      L(2) = 18
18      RETURN
19      END
Note: See TracBrowser for help on using the repository browser.