comm.for

有限元代码

         MODULE WORK1
         INTEGER,ALLOCATABLE,SAVE::INODE(:,:),ISUPS(:,:),NR(:,:)   
         REAL,ALLOCATABLE,SAVE::COORN(:,:)
	   END MODULE WORK1

	   MODULE WORK2
	   REAL,ALLOCATABLE::KMATS(:)
	   END MODULE WORK2

	  MODULE WORK3
	  INTEGER,ALLOCATABLE,SAVE::NA(:)   
        REAL,ALLOCATABLE,SAVE::RVECS(:),RVECST(:),DISPS(:),
	+     DISPP(:),U(:)     
	  END 

	  SUBROUTINE RELE
	  USE WORK2
	  DEALLOCATE(KMATS)
	  END SUBROUTINE RELE

	 
	   SUBROUTINE CONF1(N,N1)
	   USE WORK1
	   ALLOCATE(INODE(N1,10),ISUPS(N,4),COORN(N,3),NR(N+1,3))
	   END SUBROUTINE CONF1

	  SUBROUTINE CONF2(N3)
	  USE WORK2
	  ALLOCATE(KMATS(N3))
	  END SUBROUTINE CONF2

	  SUBROUTINE CONF3(N2)
	  USE WORK3
	  ALLOCATE(NA(0:N2),RVECS(N2),RVECST(N2),DISPS(N2),DISPP(N2)
	+   ,U(N2))
	  END SUBROUTINE CONF3