preprocessor statements need to start at column 0

This commit is contained in:
Martin Diehl 2019-06-07 07:45:54 +02:00
parent 042ff7e491
commit c7703d7aaf
1 changed files with 3 additions and 3 deletions

View File

@ -280,10 +280,10 @@ subroutine hypela2(d,g,e,de,s,t,dt,ngens,m,nn,kcus,matus,ndi,nshear,disp, &
computationMode = ior(computationMode,CPFEM_BACKUPJACOBIAN) ! collect and backup Jacobian after convergence
lastIncConverged = .false. ! reset flag
endif
do node = 1,theMesh%elem%nNodes
!do node = 1,theMesh%elem%nNodes
!CPnodeID = mesh_element(4+node,cp_en)
!mesh_node(1:ndeg,CPnodeID) = mesh_node0(1:ndeg,CPnodeID) + numerics_unitlength * dispt(1:ndeg,node)
enddo
!enddo
endif
else ! --- PLAIN MODE ---