[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]![]() |
![]() |
![]() |
|||||||||||||||||||||||||
|
|||||||||||||||||||||||||||
![]() |
![]() |
![]() |
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
![]() |
![]() |
![]() |
||||||||||||
|
||||||||||||||
![]() | ||||||||||||||
|
||||||||||||||
![]() |
![]() |
![]() |