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 do i=1,n/2 00013 00014 X(2*i-1)=-1.2d0 00015 X(2*i)=1.d0 00016 00017 00018 end do 00019 00020 !X(1)=2.d0 00021 !X(2)=0.5d0 00022 00023 00024 00025 00026 00027 end subroutine initialGuess
1.5.8