Customer:  C. Gustafsson  
 
 

Format Analysis: 
           The cards contain a Fortran program. 
            

Sequence Numbers: 
           Columns 73-80 contain card sequence numbers. Our software checked the sequence; gaps are highlighted in red.
            

Zoom and Sizing: 
           To fit this page into your browser, press Control-Minus and Control-Plus to adjust the zoom for easier viewing.

 
Color Key: card numbers, scan numbers, rulers, sequence numbers, anomalies, comments, job control cards, statements.
 



Box 2, Deck CLEB.FOR

       12345678901234567890123456789012345678901234567890123456789012345678901234567890
                1         2         3         4         5         6         7         8

    1: *DECK CLEB                                                                        001
    2:       FUNCTION CLEB (XJ1,XM2,XJ,XM)                                     CLEB   2  001
    3: C                                                                       CLEB   3  001
    4: C     CLEB CALCULATES THE CLEBSCH GORDAN COEFFICIENT                    CLEB   4  002
    5: C               ( J1 1 M1 M2 , J M )                                    CLEB   5  002
    6: C                                                                       CLEB   6  002
    7: C     THE ANGULAR MOMENTA AND THEIR PROJECTIONS ARE GIVEN BY THEIR VALUECLEB   7  003
    8: C     IN REAL FORM.                                                     CLEB   8  003
    9: C                                                                       CLEB   9  003
   10:       CLEB=0.                                                           CLEB  10  004
   11:       IF (ABS(XM-XM2).GT.XJ1+.1) RETURN                                 CLEB  11  004
   12:       IF (ABS(XM2).GT.1.1) RETURN                                       CLEB  12  004
   13:       IF (ABS(XM).GT.XJ+.1) RETURN                                      CLEB  13  005
   14:       IF (ABS(XJ1-XJ).GT.1.1) RETURN                                    CLEB  14  005
   15:       IF (XM2) 1,5,9                                                    CLEB  15  005
   16:     1 IF (XJ-XJ1) 2,3,4                                                 CLEB  16  006
   17:     2 CLEB=SQRT(((XJ1+XM+1.)/(XJ1+XJ1))*((XJ1+XM)/(XJ1+XJ1+1.)))        CLEB  17  006
   18:       RETURN                                                            CLEB  18  006
   19:     3 CLEB=SQRT(((XJ1-XM)/(XJ1+XJ1))*((XJ1+XM+1.)/(XJ1+1.)))            CLEB  19  007
   20:       RETURN                                                            CLEB  20  007
   21:     4 CLEB=SQRT(((XJ1-XM)/(XJ1+XJ1+1.))*((XJ1-XM+1.)/(XJ1+XJ1+2.)))     CLEB  21  007
   22:       RETURN                                                            CLEB  22  008
   23:     5 IF(XJ-XJ1) 6,7,8                                                  CLEB  23  008
   24:     6 CLEB=-SQRT(((XJ1-XM)/XJ1)*((XJ1+XM)/(XJ1+XJ1+1.)))                CLEB  24  008
   25:       RETURN                                                            CLEB  25  009
   26:     7 CLEB=(XM/XJ1)/SQRT(1.+1./XJ1)                                     CLEB  26  009
   27:       RETURN                                                            CLEB  27  009
   28:     8 CLEB=SQRT(((XJ1-XM+1.)/(XJ1+XJ1+1.))*((XJ1+XM+1.)/(XJ1+1.)))      CLEB  28  010
   29:       RETURN                                                            CLEB  29  010
   30:     9 IF (XJ-XJ1) 10,11,12                                              CLEB  30  010
   31:    10 CLEB=SQRT(((XJ1-XM)/(XJ1+XJ1))*((XJ1-XM+1.)/(XJ1+XJ1+1.)))        CLEB  31  011
   32:       RETURN                                                            CLEB  32  011
   33:    11 CLEB=-SQRT(((XJ1+XM)/(XJ1+XJ1))*((XJ1-XM+1.)/(XJ1+1.)))           CLEB  33  011
   34:       RETURN                                                                      012
   35:    12 CLEB=SQRT(((XJ1+XM)/(XJ1+XJ1+1.))*((XJ1+XM+1.)/(XJ1+XJ1+2.)))               012
   36:       RETURN                                                                      012
   37:       END                                                                         013

                1         2         3         4         5         6         7         8
       12345678901234567890123456789012345678901234567890123456789012345678901234567890