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

Called by

proc~~esmf_filestatusas~~CalledByGraph proc~esmf_filestatusas ESMF_FileStatusAs interface~assignment (=)~2 assignment (=) interface~assignment (=)~2->proc~esmf_filestatusas

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