anchor.diff:        !dampe(:,:)=0.0d0
   
   100    CONTINUE
  -!
  -!
  -!  ÊýŸÝÎÄŒþÖÐÎïÃæ·š·œÏòÖžÈëÁ÷ÌåÎªÕý
  -!
  +        ! in dat file ,positive nrml is set as pointing into fulid field
         DXYZE(1, 1:8, 1:NELEMF)= 0.0d0
         DXYZE(2, 1:8, 1:NELEMF)= 0.0d0
         DXYZE(3, 1:8, 1:NELEMF)= 1.0d0 
   !     DXYZE(3, 1:8, 1:NELEMF)=-1.0d0 
  -
   
         RETURN
         END
  
positive.code:         IF(ISYS.EQ.0) NSYS=1
          IF(ISYS.EQ.1) NSYS=2
          IF(ISYS.EQ.2) NSYS=4
  On branch master
  Your branch is up-to-date with 'origin/master'.
  Changes to be committed:
    (use "git reset HEAD <file>..." to unstage)
  
  	new file:   .mesh.f90.swp
  	modified:   mesh.f90
  
          READ(3,*)   NELEMF
      
          !    mvarÖÐNELEM: number of total elements
  
          NELEM=NELEMB+NELEMF
  
          !WRITE(11,*) ' NELEM=',NELEM,'  IOPL=',IPOL
          ALLOCATE (NCONB(NELEMB,8),NCONDB(NELEMB,8))!body node/normal list
          ALLOCATE (XYZB(3,NNB),DXYZB(3,NNBD))    !body node/normal
          
  
negative.code: !C *                                                                 *
  !C *******************************************************************
  !C 
      subroutine meshfs4()
  
          implicit none
  
          integer :: IE,J,M
          
          XYZE(3,1:8, 1:NELEMF)=0.0d0
          
          DO 100 IE=1, NELEMF
              IETYPE(IE)=2
              READ(3, *)    M, NCN(IE)
  