[Pw_forum] Recent CVS - problems on SGI

[Konstantin Kudin]

 This is an update on my previous message. As it turns
out, one of my jobs under Linux happened to use that
very same routine "check_constrain", and crashed there
in the location denoted by "***" below. So while ifc
7.1 did compile the code, there is some problem there
that the SGI compiler seems to have spotted already
during the compile.

 Could some F90 expert take a look at that piece of
the code?

 Kostya

  !
  ! ... if the atomic positions have been corrected
write them on output
  !
  IF ( i > 1 ) THEN
     !
     WRITE( stdout, '(/5X,"Corrected atomic
positions:",/)')
     DO na = 1, nat
***        WRITE( stdout,'(A3,3X,3F14.9)')
atm(ityp(na)), ( tau(i,na), i = 1, 3 )
     END DO
     !
  END IF
  !

--- Konstantin Kudin <konstantin_kudin at yahoo.com>
wrote:
>  Hi there,
> 
>  I am trying to build the whole O-sesame thing
> downloaded on Feb. 13 on an SGI Origin, and getting
> the following error (below). After that the build
> appears to proceed fine. Any pointers? Or was it
> just
> the unlucky Friday the 13th?
> 
>  Kostya
> 
> P.S. The new "configure" procedure is quite cool!
> 
> 
> f90 -mips4 -64 -O2 -r10000 -r8 -I.
> -I/scr2/kostya/O-sesame/include
> -I/scr2/kostya/O-sesame/Modules
> -I/scr2/kostya/O-sesame/PW
> -I/scr2/kostya/O-sesame/PH 
> -cpp -D__SGI -D__SGI64 -D__ORIGIN -D__MPI -D__PARA
> -D__FFTW -D__USE_INTERNAL_FFTW  -c move_ions.f90
>  
> SUBROUTINE check_constrain( alat, tau, atm, ityp,
> theta0, nat )
>            ^                                        
>  
>          
> f90-1277 f90: ERROR CHECK_CONSTRAIN, File =
> move_ions.f90, Line = 296, Column = 12 
>   Procedure "CHECK_CONSTRAIN" is referenced at line
> 195 (move_ions.f90).  It must have an explicit
> interface specified.
>  
> f90: MIPSpro Fortran 90 Version 7.3  (f61) Sat Feb
> 14,
> 2004  17:20:51
> f90: 366 source lines
> f90: 1 Error(s), 0 Warning(s), 0 Other message(s), 0
> ANSI(s)
> cf90: "explain cf90-message number" gives more
> information about each message
> 
> 
> __________________________________
> Do you Yahoo!?
> Yahoo! Finance: Get your refund fast by filing
> online.
> http://taxes.yahoo.com/filing.html
> _______________________________________________
> Pw_forum mailing list
> Pw_forum at pwscf.org
> http://www.democritos.it/mailman/listinfo/pw_forum


__________________________________
Do you Yahoo!?
Yahoo! Finance: Get your refund fast by filing online.
http://taxes.yahoo.com/filing.html