00001 subroutine initialGuess(X,n) 00002 00003 implicit none 00004 00005 integer i,n 00006 00007 real(8) X(n) 00008 00009 00010 ! initial guess 00011 00012 X(1)=2.d0 00013 X(2)=0.5d0 00014 00015 00016 00017 00018 00019 end subroutine initialGuess
1.5.8