anchor.diff:  	README(IPP(I)) = "//{ABSOLUTED PATH OF THE FILES}*{NCOPYFILE(I)}  // NCOPYFILE."
   	README(IPP(I)) = "//$ENDCOPYFILE" 
    
  -	README(IPP(I)) ="\N//******************************************************************************************************"C
  -	README(IPP(I)) = "//$ELEVATION"
  -	README(IPP(I))=  "//"//'"'//"THE ELEVATION IS USED TO INPUT ELEVATION DATA FOR GENERATE PRISM/BRICK ELEMENT."//'"'
  -	README(IPP(I)) = "//NOTE THAT,THE BASE 2D ELEMENT MUST BE LINEAR."  
  -    README(IPP(I)) = "//{NNODE,NLAYER,[NSUBLAYER(NLAYER)]}    //ڵزÿϸֲ"  
  -	README(IPP(I)) = "//A:{INODE,X,Y,Z(NLAYER+1)}  // 3+NLAYER+1/.Z IS IN A2Z ORDER(Z1<=Z2<=...<=Z(NLYAER+1))"
  -    README(IPP(I)) = "//B:A*{NNODE}  // NNODE."
  -	README(IPP(I)) = "//$ENDELEVATION"
  -    
  +
   	README(IPP(I)) ="\N//******************************************************************************************************"C
   	README(IPP(I)) = "//$ELEVATION"
   	README(IPP(I))=  "//"//'"'//"THE ELEVATION IS USED TO INPUT ELEVATION DATA FOR GENERATE PRISM/BRICK ELEMENT."//'"'
  
positive.code:                 MAXNFACE=MAXNFACE+1000
              ENDIF
              IF(.NOT.FACE(VAL1.IITEM).ISINI) THEN
                  FACE(VAL1.IITEM).CKEY=CKEY1
                  FACE(VAL1.IITEM).HKEY=HKEY1
                  FACE(VAL1.IITEM).SHAPE=ELTTYPE(ET1).FACE(0,J)
                  FACE(VAL1.IITEM).V(1:FACE(VAL1.IITEM).SHAPE)=ELEMENT(I).NODE(ELTTYPE(ET1).FACE(1:FACE(VAL1.IITEM).SHAPE,J))
                  FACE(VAL1.IITEM).ISINI=.TRUE.
                  NFACE=VAL1.IITEM
              ENDIF
              IF(FACE(VAL1.IITEM).NEL==0) ALLOCATE(FACE(VAL1.IITEM).ELEMENT(2))
              FACE(VAL1.IITEM).NEL=FACE(VAL1.IITEM).NEL+1
              IF(FACE(VAL1.IITEM).NEL>SIZE(FACE(VAL1.IITEM).ELEMENT,DIM=1)) CALL I_ENLARGE_AR(FACE(VAL1.IITEM).ELEMENT,5)
              FACE(VAL1.IITEM).ELEMENT(FACE(VAL1.IITEM).NEL)=I            
  		ENDDO
      END DO 
      
  
negative.code: 	!integer,external::ipp
  	character(512)::readme(512)
  	
  	open(2,file=FILEPATH//'_README_GMSH2SINP.TXT',STATUS='REPLACE')
  	
  	I=0
  	README(IPP(I))= "//THE PROGRAM USES AN MSH FILE GENERATED BY THE GMSH AS AN INPUT FILE."
  