arch/frida1-yf-23nov/i99.f

+C  ====================================================================
+C
+C      Library  IDA   :  Inelastic Data Analysis
+C      Modul    i99   :     definitively temporary testing ground
+C
+C  ====================================================================
+
+C  --------------------------------------------------------------------
+      SUBROUTINE IdaTest (nJList, JList, Fehler)
+C  --------------------------------------------------------------------
+
+      IMPLICIT NONE
+
+      INCLUDE 'i_dim.f'
+      INCLUDE 'i_wrk.f'
+      INCLUDE 'l_def.f'
+
+      CHARACTER*(*) Fehler
+      INTEGER       JList(*), nJList
+
+      END ! IdaTest

arch/frida1-yf-23nov/i_dim.f

+C  ====================================================================
+C
+C      Library  IDA   :  Inelastic data treatment
+C      Include  i_dim :     Array dimensions   (version for DEC-Alphas)
+C
+C  ====================================================================
+
+          ! The Makefile.alp copies this file to i_dim.f
+          ! which is then included into modules i?.f
+
+      INTEGER       MF, MK, MZ, MBH, MB, MC, MmemSpe, MmemBlo,
+     *              MDtof, MP, MFP, MRP, MTP, MWrk3dim, MK3V, MS3V, Mmem
+      PARAMETER    (MF=120,           ! max # on-line-files
+     *              MK=1024,          ! max # spectra per file
+     *              MZ=19,           ! max # z's
+     *              MBH=6,           ! # header blocks 
+     *              MB=MBH+4*MK,     ! max # blocks per file
+     *              MC=16384,         ! max # x-y-d data points per spectrum
+     *              MmemSpe=3*MC+1,  ! max # entries per spectrum
+     *              MmemBlo=MmemSpe, ! max # entries per mem-block
+     *              MDtof=1, ! for call to IDOL MDtof=512*128, else MDtof=1
+     *              MP=40,           ! in 92'formats, max # i/r/t params
+     *              MFP=MP-20,       ! max # fitparams
+     *              MRP=20,          ! max # r-params
+     *              MTP=50,          ! max # doc-lines
+     *              MWrk3dim=3,      ! 3rd dimension of (xy-z-*)-array
+                       ! requirements: coq(3)
+     *              MK3V=1,          ! work space for i77/FullMCT (typ =MK)
+     *              MS3V=8,          ! work space for i77/FullMCT (typ 8000)
+     *              Mmem=40000000)    ! max # entries in on-line-memory 
+                       ! verkraftet bis mindestens 3M6

arch/frida1-yf-23nov/i_wrk.f

+C  ====================================================================
+C
+C     Program  IDA   :  Inelastic Data Analysis
+C     Modul    I_WRK :     Working Space for all IDA Subroutines
+C
+C  ====================================================================
+         ! shared working space since 16may95
+
+      ! i_dim must be included before including i_wrk
+
+      ! note for multidim. arrays: leftmost variable varies most rapidly
+
+      REAL*8            X, X1, X2, X3, X4, Y, Y1, Y2, Y3, Y4, 
+     *                  D, D1, D2, D3, D4, Wrk3dim, ZZofK
+      INTEGER           NofK, NofK1, NofK2, NofJ
+
+      REAL*8            rOlfG, rOlfGdef, rOlfGG, rzxOlfGG
+      INTEGER           iOlfG, iOlfGdef
+      LOGICAL           qOlfG, qOlfGdef
+
+      COMMON  / iWrk /  X(MC), X1(MC), X2(MC), X3(MC), X4(MC),
+     *                  Y(MC), Y1(MC), Y2(MC), Y3(MC), Y4(MC),
+     *                  D(MC), D1(MC), D2(MC), D3(MC), D4(MC),
+     *                  Wrk3dim(MC,MK,MWrk3dim),
+     *                  NofK(MK), NofK1(MK), NofK2(MK), ZZofK(MK,MZ),
+     *                  NofJ(MF)