The subroutine Set_fID
sets the file ID shadow variables.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in), | optional | :: | fIDIn | ||
integer, | intent(in), | optional | :: | fIDOut | ||
integer, | optional | :: | RC |
Subroutine Set_fID(fIDIn, fIDOut, RC) ! ! !USES: ! ! Use Precision_Mod, Only: f4 ! ! !INPUT PARAMETERS: ! Integer, Optional :: RC Integer, Intent(In), Optional :: fIDIn Integer, Intent(In), Optional :: fIDOut ! ! !OUTPUT PARAMETERS: ! !Real(kind=sp), Intent(Out) :: TestOut ! !----------------------------------------------------------------------- !BOC ! ! !LOCAL VARIABLES: ! !================================================================= ! Set_fID starts here! !================================================================= RC = 0 If (Present(fIDIn)) Then If (fIDInLocal.lt.0) Then fIDInLocal = fIDIn Else Call Assert(-1,'Set_fID','fIDIn already set') End If End If If (Present(fIDOut)) Then If (fIDOutLocal.lt.0) Then fIDOutLocal = fIDOut Else Call Assert(-1,'Set_fID','fIDOut already set') End If End If End Subroutine Set_fID