ESMF_FileStatusAs Subroutine

private subroutine ESMF_FileStatusAs(fs1, fs2)

Arguments

Type IntentOptional Attributes Name
type(ESMF_FileStatus_Flag), intent(out) :: fs1
type(ESMF_FileStatus_Flag), intent(in) :: fs2

Source Code

subroutine ESMF_FileStatusAs(fs1, fs2)
 type(ESMF_FileStatus_Flag), intent(out) :: fs1
 type(ESMF_FileStatus_Flag), intent(in)  :: fs2

 fs1%status_type = fs2%status_type
end subroutine ESMF_FileStatusAs