Subversion Repositories OpenSees

Rev

Rev 969 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 969 Rev 4883
Line 488... Line 488...
488 
      CALL CHGSI (DNRM,2)  
488 
      CALL CHGSI (DNRM,2)  
489 
      IF (.NOT.ADAPT) GO TO 10
489 
      IF (.NOT.ADAPT) GO TO 10
490 
C      
490 
C      
491 
C ... COMPUTE UB(N+1) AFTER CHANGING PARAMETERS
491 
C ... COMPUTE UB(N+1) AFTER CHANGING PARAMETERS
492 
C      
492 
C      
493 
      CALL DCOPY (NB,UB(NRP1),1,UB1(NRP1),1)    
- 
 
494 
      CALL DAXPY (NB,GAMMA,DB,1,UB1(NRP1),1)    
- 
 
- 
 
 493 
      CALL ItDCOPY (NB,UB(NRP1),1,UB1(NRP1),1)    
- 
 
 494 
      CALL ItDAXPY (NB,GAMMA,DB,1,UB1(NRP1),1)    
495 
      GO TO 20    
495 
      GO TO 20    
496 
C      
496 
C      
497 
C ... COMPUTE UB(N+1) WITHOUT CHANGE OF PARAMETERS
497 
C ... COMPUTE UB(N+1) WITHOUT CHANGE OF PARAMETERS
498 
C      
498 
C      
499 
   10 CALL PARSI (C1,C2,C3,2)
499 
   10 CALL PARSI (C1,C2,C3,2)