source:
trunk/fsource/spsubs/sglpak.for
@
211
| Last change on this file since 211 was 211, checked in by vondreele, 12 years ago | |
|---|---|
| File size: 513 bytes | |
| Rev | Line | |
|---|---|---|
| [57] | 1 | SUBROUTINE SGLPAK(L,IER) |
| 2 | ||
| [211] | 3 | INCLUDE '../INCLDS/COPYRIGT.FOR' |
| [57] | 4 | |
| 5 | C THIS PROGRAM WAS DEVELOPED FOR | |
| 6 | C THE DIVISION OF CHEMISTRY | |
| 7 | C OF | |
| 8 | C THE NATIONAL RESEARCH COUNCIL OF CANADA | |
| 9 | C BY | |
| 10 | C 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.
