Antoine /

ACHOIOptionsWithArguments

Information extracted from achoi.f using callgraph.pl. It has also traversed the function call graphs, and extracted arguments as all reads from stdin (file unit 5).

The function name in parenthesis is the function responsible for the respective argument reads.

Missing: number and purpose of files.

1: CALCULATE DIMENSIONS OF THE SPACE

  (BASE0) (A(I,Q),I=4,7),A(1,Q),FLCUT(Q)

2: SHARING OF THE BASIS

  (BASE0) (A(I,Q),I=4,7),A(1,Q),FLCUT(Q)
  (LONGB) LIMB,LMAXI

3: NON-ZERO OF THE MATRIX

  (BASE0) (A(I,Q),I=4,7),A(1,Q),FLCUT(Q)
  (HLECT) FLNUC,PPPP,ZHCM,ZHLS

4: PRECALCULATION

  (BASE0) (A(I,Q),I=4,7),A(1,Q),FLCUT(Q)
  (HLECT) FLNUC,PPPP,ZHCM,ZHLS

6: CREATION OF A PIVOT

  (BASE0) (A(I,Q),I=4,7),A(1,Q),FLCUT(Q)
  (PIVOT) KPVT,RVT,RVI

7: PROJECTION ON J2

  (BASE0) (A(I,Q),I=4,7),A(1,Q),FLCUT(Q)
  (HLECT) FLNUC,PPPP,ZHCM,ZHLS
  (PROJ2) NKEEP,(JVAL(K),K=1,NKEEP)

8: TIME MATRIX ELEMENTS

  (BASE0) (A(I,Q),I=4,7),A(1,Q),FLCUT(Q)
  (HLECT) FLNUC,PPPP,ZHCM,ZHLS
  (ELANC) (NCON(K),K=1,NCAL)
  (ELANC) KPVT,ITMA,ZFIT,ORTH,NLANZ
  (ELANC) STEP

9: USUAL LANCZOS (MATRIX ELEMENTS PRECALCULATED)

  (BASE0) (A(I,Q),I=4,7),A(1,Q),FLCUT(Q)
  (BMATH0) FLNUC
  (ELANC) (NCON(K),K=1,NCAL)
  (ELANC) KPVT,ITMA,ZFIT,ORTH,NLANZ
  (ELANC) STEP

11: CALCULATION OF OCCUPATION OF SHELLS

  (BASE0) (A(I,Q),I=4,7),A(1,Q),FLCUT(Q)

12: CHANGE TRUNCATION

  (BASE0) (A(I,Q),I=4,7),A(1,Q),FLCUT(Q)

13: TRANSITIONS

  (BASE0) (A(I,Q),I=4,7),A(1,Q),FLCUT(Q)
  (ELMOP0) LB,DP,ZHW,

14: SUM RULE OF A TRANSITION OPERATOR

  (BASE0) (A(I,Q),I=4,7),A(1,Q),FLCUT(Q)
  (ELMOP0) LB,DP,ZHW,

18: GABRIEL OPERATOR

  (BASE0) (A(I,Q),I=4,7),A(1,Q),FLCUT(Q)
  (GABRIEL) LB,DP
  (BASE0) (A(I,Q),I=4,7),A(1,Q),FLCUT(Q)
  (HLECT) FLNUC,PPPP,ZHCM,ZHLS
  (PROJ2) NKEEP,(JVAL(K),K=1,NKEEP)

19: CHANGE JZ WITH ONE UNIT

  (BASE0) (A(I,Q),I=4,7),A(1,Q),FLCUT(Q)

20: TRANSITION WITH CHANGE OF THE PARITY

  (BASE0) (A(I,Q),I=4,7),A(1,Q),FLCUT(Q)
  (ELMOP0) LB,DP,ZHW,

21: SUM RULE WITH CHANGE OF THE PARITY

  (BASE0) (A(I,Q),I=4,7),A(1,Q),FLCUT(Q)
  (ELMOP0) LB,DP,ZHW,

22: SPECTROSCOPIC FACTORS

  (BASE0) (A(I,Q),I=4,7),A(1,Q),FLCUT(Q)

25: DATA FOR MFD CODE

  (BASE0) (A(I,Q),I=4,7),A(1,Q),FLCUT(Q)

31: SPECTRUM

  (YSPEC) NFIL,(NVEC(K),K=1,NFIL)
  (YSPEC) NOM(K)

32: DELETE FILES

  (ZDEL) NT,(NCUT(K),K=1,NT)
  (ZDEL) NOM

34: COPY VECTORS

  (ZCOPY) (NVEC(K),K=1,2),NCOPY
  (ZCOPY) NOM(IJK)

36: OVERLAP BETWEEN VECTORS OF 2 DIFFERENT FILES

  (YOVERB) NVEC,NOVER
  (YOVERB) NOM(IJK)

41: CENTER OF MASS HAMILTONIAN

  (ZCDM) JUMP

42: SPIN ORBIT HAMILTONIAN

  (ZCDM) JUMP

43: REDUCE THE SPACE FOR AN INTERACTION

  (ZHTRUN) JUFIN,JUINI,FLWRI,FLLEC

44: READ  INTERACTIONS

  (ZHLIST) NFIL,(FIL(K),K=1,NFIL)

45: CHANGE TEXT OF AN INTERACTION (NOCORE)

  (ZHTEXT) NFIL,(FFIL(K),K=1,NFIL)
  (ZHTEXT) (FIL(K),K=1,NFIL)
  (ZHTEXT) NEWT

46: WRITE H FOR STANDART ANTOINE

  (ZHANT) JUMP,NPAR,FLWRI,FLLEC,ZHCM