#================================================
if (Fortran_COMPILER_NAME STREQUAL "ifort")
set (CMAKE_Fortran_FLAGS_RELEASE " ")
- set (CMAKE_Fortran_FLAGS_DEBUG "-O0 -g ")
+ set (CMAKE_Fortran_FLAGS_DEBUG "-O0 -g -traceback")
set(FFLAGS0 "-CB -g -fpp -mcmodel=medium -shared-intel -ip " )
elseif (Fortran_COMPILER_NAME STREQUAL "gfortran")
set(FFLAGS0 "-std=legacy -mcmodel=medium " )
#================================================
if (Fortran_COMPILER_NAME STREQUAL "ifort")
set (CMAKE_Fortran_FLAGS_RELEASE " ")
- set (CMAKE_Fortran_FLAGS_DEBUG "-O0 -g ")
+ set (CMAKE_Fortran_FLAGS_DEBUG "-O0 -g -traceback")
# set(FFLAGS0 "-fpp -c -O3 -ip " )
set(FFLAGS0 "-O3 -ip -fpp -heap-arrays" )
# set(FFLAGS0 "-O0 -CB -CA -g" )
fail=.true.
return
endif
+ if (nlobit.eq.0) then
+ al=ran_number(0.05d0,pi/6)
+ om=ran_number(-pi,pi)
+ return
+ endif
tant=dtan(the-pipol)
nlobit=nlob(it)
allocate(z(3,nlobit))
#================================================
if (Fortran_COMPILER_NAME STREQUAL "ifort")
set (CMAKE_Fortran_FLAGS_RELEASE " -CB -g")
- set (CMAKE_Fortran_FLAGS_DEBUG "-O0 -g ")
+ set (CMAKE_Fortran_FLAGS_DEBUG "-O0 -g -traceback")
set(FFLAGS0 "-fpp -mcmodel=medium -shared-intel " )
elseif (Fortran_COMPILER_NAME STREQUAL "gfortran")
set(FFLAGS0 "-fpp -std=legacy -mcmodel=medium -g ")
!#define WHAM_RUN
! call alloc_wham_arrays
!write(iout,*) "after alloc wham"
- write (*,"(A,/,A,/,A,/,A)") "Last Christmas", &
- "I gave you my heart","But the very next day", &
- "You gave it away"
#ifdef MPI
call MPI_Init( IERROR )
call MPI_Comm_rank( MPI_COMM_WORLD, me, IERROR )
!write(iout,*)"before proc_cont, define frag"
call proc_cont
call fragment_list
- if (constr_dist.gt.0) call read_dist_constr
endif
+ if (constr_dist.gt.0) call read_dist_constr
write (iout,*) "Begin read_database"
call flush(iout)
call read_database(*10)