Révision 8 src/Hupdate_all.f90

Hupdate_all.f90 (revision 8)
63 63
       character(*), intent(in) :: string
64 64
     end function valid
65 65

  
66

  
67
    SUBROUTINE die(routine, msg, file, line, unit)
68

  
69
      Use VarTypes
70
      Use io_module
71

  
72
      implicit none
73
!--------------------------------------------------------------- Input Variables
74
      character(len=*), intent(in)           :: routine, msg
75
      character(len=*), intent(in), optional :: file
76
      integer(KINT), intent(in), optional      :: line, unit
77

  
78
    END SUBROUTINE die
79

  
80
    SUBROUTINE Warning(routine, msg, file, line, unit)
81

  
82
      Use VarTypes
83
      Use io_module
84

  
85
      implicit none
86

  
87
      character(len=*), intent(in)           :: routine, msg
88
      character(len=*), intent(in), optional :: file
89
      integer(KINT), intent(in), optional      :: line, unit
90

  
91
    END SUBROUTINE Warning
92

  
93

  
66 94
  end interface
67 95

  
68 96
  ! ======================================================================
......
85 113
           CASE ("DFP")
86 114
              Call Hinvup_DFP(n,ds,dgrad,hess)
87 115
           CASE DEFAULT
88
              WRITE(*,*) Trim(HUpdate) // " not known: using BFGS"
116
              Call Warning("Hupdate_all Hinv=T",Trim(HUpdate) // " not known: using BFGS" &
117
                   ,Unit=IoOut)
89 118
              Call Hinvup_BFGS(n,ds,dgrad,hess)
90 119
         END SELECT
91 120
     CASE (.FALSE.)
......
101 130
! we use the fact that DFP is the dual of BFGS
102 131
              Call Hinvup_DFP(n,dgrad,ds,hess)
103 132
           CASE DEFAULT
104
              WRITE(*,*) Trim(HUpdate) // " not known: using Bofill"
133
              Call Warning("Hupdate_all Hinv=F",Trim(HUpdate) // " not known: using BoFill" &
134
                   ,Unit=IoOut)
105 135
              Call Hupdate_Bofill(n,ds,dgrad,hess)
106 136
           END SELECT
107 137
    END SELECT

Formats disponibles : Unified diff