Commit a466f913 authored by ofgeorg's avatar ofgeorg

--no commit message

--no commit message
parent 24fd5d81
......@@ -115,12 +115,13 @@
FUNCTION morosinv(u)
IMPLICIT NONE
#ifndef __CMA
INTEGER,PARAMETER :: MK = kind(1.d0)
#else
USE cmaes_param_mod
#endif
#endif
IMPLICIT NONE
REAL(MK) :: u
REAL(MK) :: x,r
REAL(MK) :: morosinv
......@@ -197,7 +198,7 @@
#else
USE cmaes_param_mod
#endif
IMPLICIT NONE
REAL(MK) p,p_low,p_high
REAL(MK) a1,a2,a3,a4,a5,a6
REAL(MK) b1,b2,b3,b4,b5
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment