err Function

public function err(outstring, iret, ec)

Arguments

Type IntentOptional Attributes Name
character(len=*) :: outstring
integer :: iret
integer :: ec

Return Value integer


Called by

proc~~err~~CalledByGraph proc~err err proc~cfio_attinquire CFIO_AttInquire proc~cfio_attinquire->proc~err proc~cfio_close CFIO_Close proc~cfio_close->proc~err proc~cfio_diminquire CFIO_DimInquire proc~cfio_diminquire->proc~err proc~cfio_getattnames CFIO_GetAttNames proc~cfio_getattnames->proc~err proc~cfio_getcharatt CFIO_GetCharAtt proc~cfio_getcharatt->proc~err proc~cfio_getintatt CFIO_GetIntAtt proc~cfio_getintatt->proc~err proc~cfio_getmissing CFIO_GetMissing proc~cfio_getmissing->proc~err proc~cfio_getrealatt CFIO_GetRealAtt proc~cfio_getrealatt->proc~err proc~cfio_getvar CFIO_GetVar proc~cfio_getvar->proc~err proc~cfio_open CFIO_Open proc~cfio_open->proc~err proc~cfio_putcharatt CFIO_PutCharAtt proc~cfio_putcharatt->proc~err proc~cfio_putintatt CFIO_PutIntAtt proc~cfio_putintatt->proc~err proc~cfio_putrealatt CFIO_PutRealAtt proc~cfio_putrealatt->proc~err proc~cfio_putvar CFIO_PutVar proc~cfio_putvar->proc~err proc~cfio_sgetvar CFIO_SGetVar proc~cfio_sgetvar->proc~err proc~cfio_sputvar CFIO_SPutVar proc~cfio_sputvar->proc~err proc~esmf_cfioeosfilecreate ESMF_CFIOEosFileCreate proc~esmf_cfioeosfilecreate->proc~err proc~esmf_cfioget ESMF_CFIOGet proc~esmf_cfioget->proc~err proc~esmf_cfiosdffilecreate ESMF_CFIOSdfFileCreate proc~esmf_cfiosdffilecreate->proc~err proc~esmf_cfiosdffileopen ESMF_CFIOSdfFileOpen proc~esmf_cfiosdffileopen->proc~err proc~esmf_cfioset ESMF_CFIOSet proc~esmf_cfioset->proc~err proc~esmf_cfiovarinfoget ESMF_CFIOVarInfoGet proc~esmf_cfiovarinfoget->proc~err proc~esmf_cfiovarinfoset ESMF_CFIOVarInfoSet proc~esmf_cfiovarinfoset->proc~err proc~getbegdatetime GetBegDateTime proc~getbegdatetime->proc~err proc~getdatetimevec GetDateTimeVec proc~getdatetimevec->proc~err

Source Code

      integer function err ( outstring, iret, ec )
      character(len=*) outstring
      integer ec, iret

      if (iret .EQ. 0) then
        err = iret
      else
        print *,"CFIO_",outstring
        iret = ec
        err = ec
      endif

      return
      end function err