[an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] (none) [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] (none) [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive]
 
[an error occurred while processing this directive] [an error occurred while processing this directive]
Skåne Sjælland Linux User Group - http://www.sslug.dk Home   Subscribe   Mail Archive   Forum   Calendar   Search
MhonArc Date: [Date Prev] [Date Index] [Date Next]   Thread: [Date Prev] [Thread Index] [Date Next]   MhonArc
 

Re: [CPROG] Warning level, Fortran



Jan Eggert Kofoed wrote:
> 
> Jeg har et Fortran-spørgsmål, som jeg poster her ;-)
> 
> Man kan overføre arrays i argumentlisten uden at angive størrelsen af
> arrayet.
> Dette gøres ved at deklarere dummy argumentet til at være een lang.
> Ved kompilering får man advarsler, e.g.
> -------------------------------------------
> wfoco1.f:82: warning:
>            IDMIRC = ISIMST(XIRTSC) +1
>                            ^
> Array element value at (^) out of defined range
> -------------------------------------------
> (benyt 'fixed width' for at få pointer under XIRTSC).
> 
> Jeg kunne godt tænke mig at slå denne advarsel fra, for jeg kan/vil
> ikke lave om på denne anvendelse. Andre advarsler vil jeg gerne se.
> Selv om koden er portet til flere andre platforme end Linux, og der
> på den måde er blevet ryddet op i fejl og dårlig kode, så viser
> erfaringen jo, at hver ny platform finder nye ting.
> 
> mvh
> Jan Eggert Kofoed

Prøv med:

f77 -fugly-assumed

Eller deklarér dine arrays til at være "*" lang, e.g.

	subroutine uakk(rip,rap,rup)
	real rip(*),rap(*),rup(*)

Mogens
-- 
Mogens Kjaer, Carlsberg Laboratory, Dept. of Chemistry
Gamle Carlsberg Vej 10, DK-2500 Valby, Denmark
Phone: +45 33 27 53 25, Fax: +45 33 27 47 08
Email: sslug@sslug Homepage: http://www.crc.dk


 
Home   Subscribe   Mail Archive   Index   Calendar   Search

 
 
Questions about the web-pages to <www_admin>. Last modified 2005-08-10, 20:07 CEST [an error occurred while processing this directive]
This page is maintained by [an error occurred while processing this directive]MHonArc [an error occurred while processing this directive] # [an error occurred while processing this directive] *