    22.     .      
         ,  
 .   ,       IF  
GOTO   ( ,    COMMON 
    .     
    ,      , 
     .    , 
       .  
,     ,    
,     .     
 COMMON. 
    ,   COMMON     : 
    COMMON / ( ) /	1: 
                           ( )	I 
    @,                     ( )	1    ... 
    ,                                      ...	I    ... 
        .    
    (       ). 
               
  COMMON      .   
      ,   INCLUDE,  
         .  
   : 
    INCLUDE "( )" 
             IV, 
   ,       
, ,   .   
INCLUDE, ,    ,    
  ,       
, ,   . 

    360 . 5,           
    22.     361 

            INCLUDE 
        
   .       
,         INCLUDE  
  .    
    ,   .  
         
:   ,      .   
 -        
      ".C 
    LS",         ".FTN". , 
     ST,     
"ST.CLS",       "ST.FTN". 
      4-  .    
     , ,    
 4-  . 
     "ST.CL3" 
       4- (ST) 
     : 
     1.  	ETINIT 
     2.   	STNUL 
     3.   I /	QSTNUL <NLF> 
     4.    t /   QSTADD <NLPI 
     S.   <BXiE>     STADD (  ) 
     6.      <|>  (  > 
     7.   <:>	STQTOP(  ) 
     .     <> STSTOP(  > 
     9.   *	STDEL 
     10  	STTERM 
     
    9       .  
       , . . 
 ,     :  
         ( 
     6 ,     
       ).       
       
,           , 

    |    : Q    : , I  
   R   .      
  ,      
  ,    ,    
   .       
":   ,  ,   
  ,     .    
          
   4-  ,     
        *  
 LOGICAL, INTEGER, REAL, .  "    
        ,     
.    , ,    : 
    ,      
    IMPLICIT LOGICAL  <	! "/" DATA                                    
            !:                   MAXIND    /  100 /       !     
 = 100 
    COMMON    /STCQM/	'                                     NELEMS    
     !       0.. 
     ,          
     COMMON,      
,   . 
    IMPLICIT LOGICAL  <>	 "/" 
    DATA	!t 
    Q                 MAXIND    / 100 /	!     - 100 . 
     ,       ,  
   Q,    /       
   100  MAXIND.	" 
            
COMMON-,     -   
    ,  .     
  ST;   - STCOM, 

    362 	. 5.           

    2  * 
        VE i   4-   1.. 
         
        Q	- inQuire           INIT        - INITialize 
        ,      -i NUL1	        - TERHinate 
        DEL      - DELete	NELEMS    - Number of  ELEMentS 
       i- 
            
 .   ,   -   
  ,      ,   
   . 
         ,    
  : 
     . "ST.FTN" 
    ^___,____________,_  ___,___,,___.____  ___.________  
.-.-.-____-___  ___. 
    SUBROUTINE STIIMIT	'  
    INCLUDE  "ST.CLS" /	! 
    CftLL VEINFT	l  .  
    NELEMS = 0	!   5= 0 
    END	!  
    f*_mr_:__________,_,._..._.._.____._____._,_._.,_._ 
    SUBROUTINE STNUL	    
    INCLUDE "ST.CLS"	! 
    NELEMS =0	!   := 0 
    END	! 
    ї 
    FUNCTION .QSTNULtNLP)	'   / == 
    INCLUDE "ST.CLS"	! 
    dSTNUL=(NELEMS.EQ.0)	!   = 0 
    END	! 
    FUNCTION GISTADD(NLP)   !ecTt  .!/= INCLUDE  "ST.CLS"	! 
    Q5TftDD=(NELEMS.LT.MflXIND)      !   < END	! 
    ї 
    SUBROUTINE )      ' <!>   INCLUDE "ST.CLS"	!.:  
 .   IF(.NOT.QSTADD(NLP))CALL QTKAZ NELEMS  NELEMS+1          !.  
 :-+1. CALL VEWRITCNELEMB.E)!.  {)= END        
                            !  
    S2.     ses 
    SUBROUTINE STGET(E)	!    <> 
    INCLUDE "ST.CLS-	!. 
    XF(QSTNUL(NLP	!.              CALL OPTKAZ!. 
    CALL STQTDPt El'	!. E i=   
    CALL STDEL	!.    
    END	'  
     D
    SUBROUTINE STQTOP(E) '    INCLUDE "ST.CLS"     !. 
    IF(QSTNUL(NLP)>      '.I    	CALL OTKAZ!. CALL 
VEREAD(NELEMS,)!.  =       . 
    .     () END	'  
    SUBROUTINE STSTOP(E) '  <> INCLUDE "ST.CLS"     !. 
    IFCQSTNUL(NLP))      !.    	CALL DTKA2!. CALL 
VEWRIT(NELEMS,E)!. ()IE END               !  
    SUBROUTINE STDEL   !   INCLUDE "ST.CLS"     !. 
IF{QSTNUL(NLP)>     !.    	CALL OTKAZ!. NELEMS  NELEMS  
1  !.  s=nauiHocTb-l END                !   
    SUBROUTINE STTERM	.'  == 
    INCLUDE  "ST.CLS"	! 
    CALL  VETERM	!  .  
    END	! 
      i 
     4-  .     ST 4- 
     VE 4-  . 
             
 ,   * 1 VEj 

    364 . 5.           

      "VE.CLS" 
       4- (VE* 
     1.  	VEINIT 
     2.    <sxsl> I E    VEREftD(I,E 
     3.   <:1>  <>  VEWRIT(I,E> 
     4.  	VETERM 
     
     ,   : 
     
    IMPLICIT LOGICAL (Q)	 "/" 
    COMPLEX EW	 "4-" 
    	!: 
    @      MAXIND / 100 /	I      100 
    S,      NDIM   /  4 /	!  =  4 
    COMPLEX   VECTOR	! 
    COMMON /VECOM/	: 
    6          VECTORC4,100)	'  4- 
    	!   1..100 
    .  *  
        COMPLEX E(4)	! "4-" 

          ,     
 INCLUDE       .  
,   -    ,  ,  
    ,      
 ()  4-   COMPLEX ( ), 
        "VE.FTN11 1>- 
    SUBROUTINE VEINIT	  *= 
    INCLUDE "VE.CLS"	1                 
    END	! 
    SUBROUTINE VEREAD(I,)! <BX!l>    INCLUDE "VE.CLS"	!. 
    IF(l.BT.I.QR.I.GT.MAXCND)   !.!  1?1< 0	''-                     
 CALL OTKAZ!. DO  \   d=l,NDIM                     !. 
    E(J>    VECTORCJ,!)    !.   OTBBT  1=  CONTINUE	!. END            
                          !  


    22       365 

          . 
     3-  .  , ,   
    4-  ,    
ST             
    VE   VE ,    
.   ,      . , 
 , ,  3-  ,  
  VE. 
        3-    
   VE,    ,   , 
    : 
     ,     

    IMPLICIT LOGICAL >	! "/" REAL          E(3)                       
   ! " R3"                                                            
            !       
    DATA	! Q                 MAXIND    / 100 /     !          
  = 103 ,               NDIM        /      3 i    \        3     
                                                           ! 
    COMMON /VECOM/	! a                      VECTOR3,10S>   !   
 R3                                                                !    
  1..109  
        . 
      "DV.CLS" 
         	  (DV)  
1.                     DVINIT 
     2.   	DVNUL 
     3.   : /	QDVNUL <NLP) 
     4.     /   QDVADD <NLPJ 
     5.    : Z+    IDVNEL (NLP) 
     6.   <:>    DVADD <  ) 
     7.      DVDEL 
     8.    <exsl> a E    DVREftD(I,E) 


    366 . 5.           


     .   <41>  <>  DVWRIT(I,E)  10.  	DVTERM 
        *  * 
    IMPLICIT LOGICAL (D)   8 "/" REAL EC 2 }	' " R2" DATA      
          !        MAXIND /100/    !   " 100 
    CDMMDN /DVCOM/        '!          NELEM3      ! 
!0. @,        V(2,100)    !   R2 
    	i      <1) 
     
      -   
    | NELEMSNEL - Number of ELEMentS. -  
     
      ' 
      "DV.FTN" 
    ?-.,~.-,-~  ...-.-,,**-.  . Mi   '""*""'"""""""'**" 
*""?""""~*-"  '~* 
    SUBROUTINE DVINIT	!  
    INCLUDE "DV.CLS"	! 
    NELEMS  0	|     =   !*" 0 
    END	! 
    SUBROUTINE DVNUL	!   
    INCLUDE "DV.CLS"	! 
    NELEMS => 0	i    ==*  s=s 0 
    END	! 
    FUNCTION QDVNULCNLP)	'  = / 
    INCLUDE "DV.CLS"	! 
    OUVNUL(NELEMS,ED.0)	!        0 
    END	! 
    FUNCTION CIDVADD(NLF>  ! ./= INCLUDE "DV.CLS"      ! 
    ODVflDP=(NELEMS.Lt.MAXIND)  ! < ENO	I 
    J2.     
    7 
    FUNC3TION IDVNEL(NLP)	!   7+ 
    INCLUDE "DV.CLS	! 
    JDVNEL - NELEM3	      
    END	 
    SUBROUTINE DVADD(E)	!<!>   
    INCLUDE "DV.CLS"    .	!^ 
    IFC.NOT.QDVADDthU-P))	!.  . 3         CALL OTKAZ!. 
    NELEMS  NELEMS +1	!.  :*4 
    V<l,NELEMB>eEU>	!. <1):= 
    V<2S NELEMS) =E (2)	!. 
    END	  
    SUBROUTINE DVDEL    ! -   INCLUDE "DV.CLS     :"" ' 
IFtODVNULtNLP))     !.             CALL OTKAZ!. 
    NELEMS => NELEMS ~ 1   !. !=-1 
    END	!  
    ї 
    SUBROUTINE DVREADa,>! <ex:I> s E INCLUDE "DV.CLS"     ! 
    IFU.ST.I.OR.I.GT.NELEMS) * 1?1<1 	' CALL QTKAZ!   V(1,I)  
     !.  *= '1) E(2) .V(2,I>        !. END               i  
    SUBROUTINE DVWRITII.E) <:1> <> INCLUDE "DV.CLS11     ! 
    IFa.GT.I.OR.I.GT.NELEMS) !5 1<1<! @	CALL OTKAZ! V(1,I)  Ed)   
    !.    -V<2,I) e E(2)        !. END              !  
    SUBROUTINE DVTERM INCLUDE DV.CLS END 
    {  = !       
    ! 
       ! 

    368 	. S.             1-. 
      "L1.CLS" 
       1-  R3 (L1) 
     : 
     1.  	'     U1INIT 
     2.   	L1NUL 
     3.   s /	OL1NUL CNLP 
     4.    * /   QL1ADD <NLP> 
     
     5.       L1BES 
     6.    s /     GL1END (NLP) 
     7.       L1MOVF 
     .  <!>     LlAEAPt E > 
     9.  sa  s <|>    1 E > 
     10.  sa  t E      LIQEAPt E.) 
     11.     <>  LISEAPt E ) 
    ,~ 12.       L1DEAP   -  
<:11,12:>      L1LINKCI1,X?> 
    -  ~   <:1:>  L1GETMC X >  -   
<:1>  L1FREMC I >   13.  	L1TERK 
     
     ,   : 
    * 
    IMPLICIT LOGICAL (d)	' "/" 
    DATA	!: 
           MAX1ND /100/	   100 
    COMMON /L1COM/	 
    '        IBP, IAP	! :(@,@) .,       INEXTC 100 > ! @( 
1.. > 
    DATA	!: 
           NILL1  / 1 /	      1 
    ,      NILFRE / 2 /	  . "a z 
    	 ! 
    	VEs (     1.. 
     
    	    
    	      - Add    Element After Pointer 
    	       - Get    Element After Painter 
    	DEAR      - inQuiire Element After Pointer 
    ,     
           - Sat   Element After Fainter 
     DEftP      - Delete Element After Painter 
     Q	 inQuire 
     BEG / END - BEGIn / END* 
     MDVF      - MQVe Forward 
      / FREM - GET Memory / FREe Memory 
     IBP / IAP - Index Before/After Painter 
     
      s "-~ 
      "Ll.FTN11 
    SUBROUTINE    L.1INIT	'  
    INCLUDE "Ll.CLS"	!.  
        t  > 2 
       "" =             
"." = 	 *, 3, 4, ...,  
     
    CALL VEINIT         !. .  CALL L1LINK	!.  G       
 (NILL1,NILL1)!.     ( , en) IBP e NILL1         .  = IAP  
NILL1          !      ( , > DO 10 1=NILFRE,MAXIND-1!  V I ... 
    CALL L1LINK(I,I+1>  !. .  I, 1+1 > 10  CONTINUE	!.   
    CALL L1LINK	!.  @      (MAXIND,NILFRE)!.     (, > END   
            !  
    SUBROUTINE L1NUL    I    INCLUDE "Ll.CLS11      !. CALL 
L1BEQ        !. '   1   CONTINUE	!.  
    IF(DL1NUL(NLP))GDTO 11!. .    CALL L1DEAP     :. .   
    	!. .       
    GOTO 1	!.  
      CONTINUE	!.  
    END	I' 

    370	. 5.         
    FUNCTION OLINUUNLP) !   1 / =" INCLUDE "L1.CLS"     ! 
QL1NUL  INEXTWILHJ!    ) 	.EQ.NILL1I              "  
    END	! 
    ?*...	I  ._                 -                   I                   
                I   III   II         III'            HI        rrirr-l        
~_~ ..i. 41  I 
    FUNCTION QL1ADD(NLP> !    INCLUDE Ll.CLS    1 
QL1ADD= INEXTCNILFRE)! j, 6( )          .NE.NILFRE! ^	*  
    END	! ї. 
    SUBROUTINE L1BE5   {  INCLUDE "H.CLS"    !.       
  IBP  NILL1  '     !. .@!-/1  IAP  INEXT(NILLl)   !. 
!=@< ) END	  
Η FUNCTION OLIEND(NLP) !  
  INCLUDE "H.CLS0    ! QLiENDtIAP.EQ.NILLl)!  .=  
    END	! 
    0 
    SUBROUTINE U1MDVF  !  INCLUDE "H.CLS"    !.	 
IF<QL1END<NLP)>     I.|    3         CALL OTKflZ!. IBP  IAP   
      ! .@=. IAP  I NEXT (I )    !. .=(.-@> END   
           !  ї- SUBROUTINE 
L1AEAP<E) !! <:>  . INCLUD 
    E "Li.CLS"    !. 
    IF(.NOT.QL1ADD(NLP !.  .          CALLOTKAZ!. CALL 
LIGETM(I)      !.   <> CALL L1LINKUBP,!)   i.  <.. 
> CALL L1LINKCI.IAP)  !.  <1, .@> IAP  X	!. . I X CALL 
\^)RIT(I,E)    !. ) i E END              I  
    -L   ..__1       _OPJ.K_ai ^1VT   '   
򫫫 >* nmi**i> 


    22,      	371 


    SUBROUTINE LIGEAP(E) '   INCLUDE "LI.CLS" !,  s 
<:> IF(QL1END!NLPJ)CALL OTKAZ '.:    CALL LlDEAPf E? ). J. 
:=-   CALL L1DEAP !.    END	  
    SUBROUTINE L1QEAP(E> !   INCLUDE "Li.CLS"     !.       
 S E IF(QLlEND(NLP)'i    . '.:    	CALL OTKA2!. CALL 
VEREADaAP,E)   !. ;=,> END                I   
    SUBROUTINE L1SEAP(E> '   INCLUDE "LI.CLS"    1.  
  <:> IF(QLlENDtNLP))     !,    (	CALL ҹ2 !.  
CALL VEWRIT<IAP,E)   !.  .) t E EN0                 !  
    SUBROUTINE L1DEAP	!   
    '    INCLUDE "L1.CLS"	!.         
    ;     IFCDLIEND(NLP))	'.    
    V    	CALL, OTKAZJ. 
    I " IAP	!.!:= . 
    IAP = INEXT<I)	!. . s= ) 
    CALL L1LINKUBP,IAP>	!..,.@> 
    CALL L1FREMC I'>	!.  (I> 
    END	!  
    v*  ,	SUBROUTINE: LlLINKdl,I2) ' <I1,I2> == 
    \ /	INCLUDE "LI.CLS"    ! 
    \/	INEXTC II ) ** 12    !        11):=12 
    4	END.               ! 
    SUBROUTINE LiBETMCIJ !  <:I> 
    INCLUDE "Ll.CLS"    !. 
    IF<.NOT.QL1ADD(NLPJ)   !.8   . @	CALLQTKAZ!. 
    I  INEXT(NILFRE)         !.   I:^ > 
    CALL L1LINK	4;     !.  a         <NILFRE,INEXTCI3H.            < ,(1)) 
    END	!   


    372	. 5.           

    SUBROUTINE HFREM(I)    '  <*1> INCLUDE  "L1.CLS"	I. CALL 
L1LINK                         !.    &          <r,INEXT<NILFRE 1.     
        (I, (/1 ) ) CALL  L1LINK<NILFRE,I)!.    (/1  , I) 
END                                            !   
    SUBROUTINE L1TERM	!  == 
    INCLUDE "DV.CLS"	! 
    CALL VETERM	! . *  
    END	! 
    J-V_____,._mui.   _^.___.   ...__il_m_j.mi.-_-m.ii_n-..._________ 1_J 
_.-!--Ill-- .1	-                       -    '   -        1 "-I      "I     
 "     .-.      II -.  -    II         I      -__-     Jll     II      1-  
-I.---L-..--..-I      -__",-f 
      
    ! 5================================ 


       

    1.      <  , 
,  . 2. 
    '   2.       . 
    3.         
       . 
    4.            . 
    5. ,            
 ( = /),      : 
                 1.    
<!1>  <Bbix:N2>    RNMOVE<N1,N2)     2.   <BX:N1,N2> 	/    
QRNEQ     <N1,N2>      3.   <:>  <BXskz>s/     QRNLT     
(N1,N2>      4.     <11>    <BX/Bbix:N2>          RNADD   <N1,N2> 
    5.    <1> </!2>         RN 
    MULT(N1,N2)     6.    <BX/BUXsN2>                          
RNREDIK       N2)     7.     <BX!N1>              IRNVAL   
(N1)      8.    ^ 1>  :R       RRNVAL   (N1)  
      ,     :  
    IMPLICIT LOGICAL   (0>    !   "/" INTEGER N1(2),   N2(2)    
! N1,   N2  	!            I - 
    6.         
  N- . 

    22.          373 

    7.         
( ,  ,  , ) . 3. 
    8.          
     32000 ,     
1000    .       
        1000. 
    ,    , 
    :;!!   . . 
    9.          
     32000*32000 ,    
 1000    .      
         1000. 
,      ,  
    . . 
    10.        ' 
     , , : 
    )   Ѱ    ; "-      )   1  
   ; 
    )   1     ; 
    ;       )   '     ,    . 
    11.    10   ,    
 ,   , *   : 
    )      ; 
    )      ; 
    )  . 
    12.    10   ,    
 ,  : 
    )  ; 
    )      ; 
    )    1-  ; 
    )       ; 
    )    ; 
    )     ; 
    )      ; 
    )      ; 
    )      ; 
    ) ,       . 
