PSI sics-cvs-psi_pre-ansto

2003-06-13 00:00:00 +00:00
parent 2e3ddfb6c6
commit 3ffd0d8af4
1099 changed files with 318432 additions and 0 deletions
--- a/difrac/sglpak.f
+++ b/difrac/sglpak.f
@@ -0,0 +1,11 @@
+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