Recent content by winiepu

  1. W

    How to modify the following code?

    The compiler said handle exception: Error while dumping state. If I make mylocate internal subroutine by using contain, I can compile and run it just like the following. It is so weird. Can someone explain this to me? Thanks. module nrtype INTEGER, PARAMETER :: SP = KIND(1.0) INTEGER...
  2. W

    How to modify the following code?

    I can compile the following code, but I can not run it in my computer. How do change it? Thanks. module nrtype INTEGER, PARAMETER :: SP = KIND(1.0) INTEGER, PARAMETER :: DP = KIND(1.0D0) INTEGER, PARAMETER :: I4B = SELECTED_INT_KIND(9) INTEGER, PARAMETER :: I2B = SELECTED_INT_KIND(4)...
  3. W

    How to Make a Variable Global in mnbrak.f90?

    The following code is just an example. I try to apply mnbrak.f90 to my function f=(x-i)^2. I want to make i globle variable. If I use internal procedure, I can not use mnbrak.f90, since it can not accept the internal procedure. How do I deal with it? Thanks! PROGRAM xbrent USE nr USE...