How to submit a Software Problem Report

[Intel_C_Intel]

First question:
How to I submit a "Software Problem Report"?

Second:
Here's the command line given to compile and the error:

f90 -c -cpp -O4 -static -fpe2 -warn argument_checking -DUNIX -Dunix -DALPHA -I. -I/gluonc/e614/e614soft/triumf/mofia/2.1.ko/source/include -I/gluonc/e614/e614soft/triumf/ybos/4.1/library -I/gluonc/e614/e614soft/triumf/cfm/2.3/source -I/gluonc/e614/e614soft/triumf/bru/1.1 -I/gluonc/e614/e614soft/triumf/mofia/2.1.ko/source/modules   xtalk_mod.f90 
f90: Severe: xtalk_mod.f90, line 122: Please report this error along with the circumstances in which it occurred in a Software Problem Report 
                            IF(remove_whit(ihit,DCWhits(iplane,:),DCTDC, & 
^ 
[ Aborting due to internal error. ] 
make: *** [xtalk_mod.o] Error 1 

Here's a peek at the code around line 122:

                      IF(abs(iWireGood-iWireXtalk) <= iWireAway) THEN 
!                            DCtdc(Whit2P%hits(ihit))%XTflag = 1 
                         IF(ihit==1) THEN 
                            NXtalkPHits(iPlane) = NXtalkPHits(iPlane) + 1 
                            NXtalkWHits(iPlane,iWireXtalk) = & 
                                 NXtalkWHits(iPlane,iWireXtalk) + 1 
                            IF(remove_whit(ihit,DCWhits(iplane,:),DCTDC, & 
                                 DC_nPhits(iPlane)) /= 0)             & 
                                 WRITE(lout,*)"Xtalk hit not found by remove" 
                         ENDIF 
                      ENDIF   

Any Ideas?

Paul

[Steven_L_Intel1]

See the Compaq Fortran Support Page for details on how to submit a problem report to Compaq.

Steve

[Intel_C_Intel]

Steve,

Thanks. Could you be a little more specific about the URL? I obviously
sent this message beause I did not find the correct link after 5 minutes
of searching.

I'm looking at the page www.compaq.com/support/fortran/index.html right now. I don't see "Software Problem Report" anywhere on the page. A search of the support site turns up a few hundred thousand matches for the words
"Software", "Problem" and "Report". The first twenty of these are not the
correct link.

Any Hints?

Paul

[Jugoslav_Dujic]

The compiler obviously got it wrong and you should submit a problem report so the Compaq folks could fix it. Such problems can usually be workarounded by simplifying the line in question and breaking it into
several simpler lines, something like:

 
!= Variant 1 ================= 
iTemp = remove_whit(...) 
IF ( iTemp /= 0) WRITE(lout,*... 
 
!= Variant 2 ================= 
...remove_whit(ihit, DCWhits(iplane, 1:whatever)... 
 
!= Variant 3 ================= 
TYPE(type of DCWhits), POINTER:: pDCWhits(:) 
... 
pDCWHits => DCWhits(iPlane, :) 
...remove_whit(ihit, pDCWHits, ...) 

I'm sure you'll eventually find the winning combination.

Explicit interface/module association for remove_whit, if you don't already have it, is highly recommended. Also, note that it would be wise to declare dummy argument for DCWhits as assumed-shape (:) for performance reasons (in which case explicit interface is required).

HTH

Jugoslav

[Steven_L_Intel1]

If you have a software support contract, submit the report through the appropriate contact for that. If you want to send it to us informally, send a gzipped tar file of the source file that got the error, along with any include files (and module sources) required, to fortran@compaq.com. Please note that we're closed this week, so we won't look at it until next week.

Steve