Merge branch 'fortran-rename' into 'development'
following style guide See merge request damask/DAMASK!674
This commit is contained in:
commit
934147d803
|
@ -764,7 +764,7 @@ end subroutine dct
|
|||
|
||||
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
! @brief decide whether next block is list or dict
|
||||
! @brief Decide whether next block is list or dict.
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
recursive subroutine decide(blck,flow,s_blck,s_flow,offset)
|
||||
|
||||
|
@ -811,7 +811,7 @@ recursive subroutine decide(blck,flow,s_blck,s_flow,offset)
|
|||
end if
|
||||
end if
|
||||
|
||||
end subroutine
|
||||
end subroutine decide
|
||||
|
||||
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
|
|
|
@ -526,6 +526,6 @@ subroutine getMaskedTensor(values,mask,tensor)
|
|||
end do
|
||||
end do
|
||||
|
||||
end subroutine
|
||||
end subroutine getMaskedTensor
|
||||
|
||||
end program DAMASK_grid
|
||||
|
|
|
@ -222,7 +222,7 @@ subroutine cellsSizeOrigin(c,s,o,header)
|
|||
temp = getXMLValue(header,'Origin')
|
||||
o = [(IO_floatValue(temp,IO_stringPos(temp),i),i=1,3)]
|
||||
|
||||
end subroutine
|
||||
end subroutine cellsSizeOrigin
|
||||
|
||||
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
|
@ -421,7 +421,7 @@ pure function getXMLValue(line,key)
|
|||
end if
|
||||
end if
|
||||
|
||||
end function
|
||||
end function getXMLValue
|
||||
|
||||
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
|
|
|
@ -1783,6 +1783,6 @@ subroutine storeGeometry(ph)
|
|||
end do
|
||||
end do
|
||||
|
||||
end subroutine
|
||||
end subroutine storeGeometry
|
||||
|
||||
end submodule nonlocal
|
||||
|
|
Loading…
Reference in New Issue