HI
One user has complained that while using f90 on dec unix (tru64 v 4.0F
patch applied, XP1000 model) gives the following error. (he was able to
compile the same program in other platforms viz ibm, hp, sun).
WHAT DOES THIS ERROR MEAN????
WHAT SHOULD I DO FOR THIS???
TIA
sajan
f90: Severe: pack_h.f90, line 20: **Internal compiler error:
segmentation violation signal raised** Please report this error along
with the circumstances in which it occurred in a Software Problem
Report.
Note: File and line given may not be explicit cause of this error.
buffer_h_tx(previous:previous+len)=pack(hx(:,:,k_end,-2),true)
____________________________________________________________
this is his subroutine: ( I am too poor in fortran!!!!):
subroutine pack_h
use mod_domain
use mod_fields
use mod_parallel
implicit none
integer :: k1,k2,previous,len,i0,i9,j
logical :: true
if(task_id/=n_task-1)then
true=.true.
previous=1
len=box_x*(box_y-1)-1
buffer_h_tx(previous:previous+len)=pack(hx(:,:,k_end,-2),true)
previous=previous+len+1
len=box_x*(box_y-1)-1
buffer_h_tx(previous:previous+len)=pack(hx(:,:,k_end,-1),true)
previous=previous+len+1
len=box_x*(box_y-1)-1
buffer_h_tx(previous:previous+len)=pack(hx(:,:,k_end,0),true)
previous=previous+len+1
len=(box_x-1)*box_y-1
buffer_h_tx(previous:previous+len)=pack(hy(:,:,k_end,-2),true)
previous=previous+len+1
len=(box_x-1)*box_y-1
buffer_h_tx(previous:previous+len)=pack(hy(:,:,k_end,-1),true)
previous=previous+len+1
len=(box_x-1)*box_y-1
buffer_h_tx(previous:previous+len)=pack(hy(:,:,k_end,0),true)
endif
__________________________________________________
Do You Yahoo!?
Send instant messages & get email alerts with Yahoo! Messenger.
http://im.yahoo.com/
Received on Wed May 10 2000 - 05:10:25 NZST