Opened 3 years ago
Last modified 7 months ago
#64139 new defect
f951: internal compiler error: in read_module, at fortran/module.c:5169 libbacktrace could not find executable to open — at Initial Version
Reported by: | kshariff786 (Karim Shariff) | Owned by: | |
---|---|---|---|
Priority: | Normal | Milestone: | |
Component: | ports | Version: | |
Keywords: | Cc: | ||
Port: | gcc8 |
Description
/opt/local/bin/gfortran-mp-8 -ffree-line-length-none -c initarr.f90 f951: internal compiler error: in read_module, at fortran/module.c:5169 libbacktrace could not find executable to open Please submit a full bug report, with preprocessed source if appropriate. See <https://trac.macports.org/newticket> for instructions.
Here is initarr.f90 but I don't know if it is helpful.
subroutine initarr(first)
use tts_mod use grid_mod implicit none
- logical,intent(in)
- first
- integer
- i,id
if(first) then
call grid_allocate()
! cos(theta) array allocate(u(nmu)) dmu=2.d0/dble(nmu) do i=1,nmu
u(i)=1.d0-dmu*(dble(i)-0.5d0) print '("mu_",I0," = ",F10.5)',i,u(i)
end do
! SEDs allocate(si(nfreq,nmu,nph,nap,no)) allocate(sq(nfreq,nmu,nph,nap,no)) allocate(su(nfreq,nmu,nph,nap,no)) allocate(sv(nfreq,nmu,nph,nap,no)) allocate(si_init(nfreq,no_init))
! SED uncertainties allocate(si2(nfreq,nmu,nph,nap,no)) allocate(sq2(nfreq,nmu,nph,nap,no)) allocate(su2(nfreq,nmu,nph,nap,no)) allocate(sv2(nfreq,nmu,nph,nap,no))
! Number of photons in SEDs allocate(nums(nfreq,nmu,nph,nap,no))
! Other arrays ! allocate(aveinc(nfreq,nmu,nph,nap,no)) allocate(tauenv(nfreq,nmu,nph))
densarr=0.d0 densvararr=0.d0 massarr=0.d0 sigarr=0.d0 !tdust2=3.d0/11605.d0 tdust2=0.1d0/11605.d0 tdust2dw=0.1d0/11605.d0 diffdir=0 diffus=.false. nodust=.false. vcell=0.d0 imean=0
end if
killed = 0
dbig=0 dsg=0 jmean=0.d0
si = 0.0 sq = 0.0 su = 0.0 sv = 0.0
si2 = 0.0 sq2 = 0.0 su2 = 0.0 sv2 = 0.0
nums = 0.0
! aveinc = 0.0
do id=1,ndg
where(diffus)
tdust(:,:,:,id) = 0.1d0/11605.d0
elsewhere
tdust(:,:,:,id)=tdust2(:,:,:,id)
end where
end do
nabs=0.d0 dtauabs=0.d0
end subroutine initarr
subroutine initimages()
use type_nested_image use tts_mod implicit none
- integer
- peelid
- real
- freq_min,freq_max
! SEDs ! (n_freq,n_apmax,n_output)
allocate(ti(nfreq,npeel,nap,no)) ; ti=0.0 allocate(tq(nfreq,npeel,nap,no)) ; tq=0.0 allocate(tu(nfreq,npeel,nap,no)) ; tu=0.0 allocate(tv(nfreq,npeel,nap,no)) ; tv=0.0
! SED uncertainties ! (n_freq,n_apmax,n_output)
allocate(ti2(nfreq,npeel,nap,no)) ; ti2=0.0 allocate(tq2(nfreq,npeel,nap,no)) ; tq2=0.0 allocate(tu2(nfreq,npeel,nap,no)) ; tu2=0.0 allocate(tv2(nfreq,npeel,nap,no)) ; tv2=0.0
allocate(numt(nfreq,npeel,nap,no)) ; numt=0.0
! Images - real*8, dimension(npeel,n_x,n_x,n_bands)
if(output_imfilt) then
allocate(image_b_i(npeel,nxhst,nxhst,nbnd)) ; image_b_i=0.0 allocate(image_b_q(npeel,nxhst,nxhst,nbnd)) ; image_b_q=0.0 allocate(image_b_u(npeel,nxhst,nxhst,nbnd)) ; image_b_u=0.0 allocate(image_b_v(npeel,nxhst,nxhst,nbnd)) ; image_b_v=0.0
end if
! Monochromatic:
if(output_imcube) then ! allocate(image_m_i(npeel,nxhst,nxhst,nfreqcube)) ; image_m_i=0.0 ! allocate(image_m_q(npeel,nxhst,nxhst,nfreqcube)) ; image_m_q=0.0 ! allocate(image_m_u(npeel,nxhst,nxhst,nfreqcube)) ; image_m_u=0.0 ! allocate(image_m_v(npeel,nxhst,nxhst,nfreqcube)) ; image_m_v=0.0
allocate(image_m_i(npeel,nxhst,nxhst,nfreq,no)) ; image_m_i=0.0 allocate(image_m_q(npeel,nxhst,nxhst,nfreq)) ; image_m_q=0.0 allocate(image_m_u(npeel,nxhst,nxhst,nfreq)) ; image_m_u=0.0 allocate(image_m_v(npeel,nxhst,nxhst,nfreq)) ; image_m_v=0.0
end if
! Nested images
if(output_imsparse) then
allocate(image_ms_i(npeel)) allocate(image_ms_q(npeel)) allocate(image_ms_u(npeel)) allocate(image_ms_v(npeel))
do peelid=1,npeel
freq_min = log10(real(numin)*2.9979e14/1.2398e0) freq_max = log10(real(numax)*2.9979e14/1.2398e0) call nested_image_setup(image_ms_i(peelid),sparse_dim,sparse_rmax*real(autors),& &sparse_rmin,nfreq,freq_min,freq_max,sparse_factor) call nested_image_setup(image_ms_q(peelid),sparse_dim,sparse_rmax*real(autors),& &sparse_rmin,nfreq,freq_min,freq_max,sparse_factor) call nested_image_setup(image_ms_u(peelid),sparse_dim,sparse_rmax*real(autors),& &sparse_rmin,nfreq,freq_min,freq_max,sparse_factor) call nested_image_setup(image_ms_v(peelid),sparse_dim,sparse_rmax*real(autors),& &sparse_rmin,nfreq,freq_min,freq_max,sparse_factor)
end do
end if
end subroutine initimages