iderr.for

钢筋混凝土结构的非线性分析

$debug
C==============================================================
CKunnath30Jan95
C
	SUBROUTINE IDERR(INP,IVAL,IRET)
	CHARACTER*6	TEXT(20)

      if (INP.eq.20) then                                               981111si
          write(6,12)                                                   981111si
      elseif (INP.eq.22) then                                           981121si
	    write(6,14)                                                   981121si
      else                                                              981111si    
	TEXT(1)	= ' NNC  '
	TEXT(2)	= ' NNB  '
	TEXT(3)	= ' NNW  '
	TEXT(4)	= ' NNE  '
	TEXT(5)	= ' NNT  '
	TEXT(6)	= ' NNR  '
	TEXT(7) = ' NN1  '
	TEXT(8) = ' NN2  '
	TEXT(9) = ' NP1  '
	TEXT(10) = ' NP2  '
	TEXT(11) = ' NN4  '
	TEXT(12) = ' NN5  '
	TEXT(13) = ' NN6  ' 
	TEXT(14) = ' NZ1  ' 
	TEXT(15) = ' NZ2  ' 
	TEXT(16) = ' NZ3  ' 
	TEXT(17) = ' NZ4  ' 
        TEXT(18) = ' NND4 '                                             950803RV
        TEXT(19) = ' NP4  '                                             950803RV
C
        WRITE(6,11) TEXT(INP),IVAL
      endif                                                             981111si
11	FORMAT(//'******** PROGRAM LIMITS EXCEEDED ********'/,
     *         //'         CHANGE CURRENT VALUE OF  >> ',A6,
     *           ' <<   IN FILE *IDDEFN.FOR*  TO : ',I6//)	
12	FORMAT(//'******** CHOLESKY DECOMPOSITION FAILED ********'/,      981111si
     *   //' EFFECTIVE STIFFNESS MATRIX MAY NOT BE POSITIVE DEFINITE ', 981111si
     *   //' STRUCTURE MAY BE UNSTABLE OR MIGHT HAVE COLLAPSED '//,     981111si
	*   //' PROGRAM TERMINATED PROPERLY'/,
     *    ' STRUCTURE COLLAPSED (PHYSICALLY OR COMPUTATIONALLY)'//)
14	FORMAT(//'***** STIFFNESS MATRIX NOT POSITIVE DEFINITE *****'/,   981121si
     *         //' CANNOT PERFORM EIGENVALUE ANALYSIS '                 981121si
     *           //)                                                    981121si
	IRET=-1
	RETURN
	END