This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: weird behaviour
- From: Éric Depagne <edepagne at lcogt dot net>
- To: Jerry DeLisle <jvdelisle at verizon dot net>
- Cc: Fortran List <fortran at gcc dot gnu dot org>
- Date: Thu, 2 Aug 2007 20:26:01 -0700
- Subject: Re: weird behaviour
- Dkim-signature: a=rsa-sha1; c=relaxed/relaxed; d=gmail.com; s=beta; h=domainkey-signature:received:received:from:reply-to:organization:to:subject:date:user-agent:cc:references:in-reply-to:mime-version:content-type:content-transfer-encoding:content-disposition:message-id:sender; b=K+p8UrZOWNmzpjN/EMeLLZAr6HiTf8/6UKHc/NZ8T4Ilt3QKkJeY9XqjpDbl3CnnQdUxOndgRFAwr5s4N5LkHFkIsYU99qlkjU+KJgBh6mi1gnfRh4ZD+yHjsma4Q3zhMMel8ZzC55XL7JdCNeJ0X312i5r3c9rKCHxmleoBdWo=
- Domainkey-signature: a=rsa-sha1; c=nofws; d=gmail.com; s=beta; h=received:from:reply-to:organization:to:subject:date:user-agent:cc:references:in-reply-to:mime-version:content-type:content-transfer-encoding:content-disposition:message-id:sender; b=AcOWMxwKMeoGwcutyc3Dv3irF2RliH9J+Zou/Y8o0mY9jDQ/2RLSVdYpivBbCwaIQfWN+ObtyCp11BRwBj2xyU9bkyEBaRMd811HOVPGLHR/DvqHGWh7X/Lg5EnNonOX8CrlslMfqY+a453ocAJsC9oVOO9p+9xFeWpRpvPtjC0=
- Organization: Las Cumbres Observatory
- References: <200708021931.26155.edepagne@lcogt.net> <46B29414.3040909@verizon.net>
- Reply-to: edepagne at lcogt dot net
> You need to attach the code example please.
Here it comes.
That's the way I call the function:
contrib=LINE(wave,nlo,nup,hlambda,t(k),ne(k),nh1(k),nhe1(k),frac)
And that's the first lines of the function:
FUNCTION LINE(WAVE,NBLO,NBUP,WAVEH,T,XNE,HNORM,H1FRC,HE1FRC,DOPPLE)
REAL KAP0,KAP0RED,KAPRED,KAP0BLUE,KAPBLUE
REAL*8 WAVEH,WAVE,WCON,EMERGE,WMERGE,WSHIFT,WTAIL
REAL*8 BLUECUT,WLBLUE,REDCUT,WLRED,EMERGEH
REAL*8 EHYD(100),CONTH(15)
REAL*4 DOPPLE
REAL*8 VACAIR
real pg
LOGICAL FIRST
SAVE
print *,'Test dopple'
print *,'Dopple is : ', DOPPLE
I get the following:
Test dopple
Nothing else.
If I add after the first print anything like
print *,'Another line added'
I'll get
Test dopple
Another line added
Whatever I do that implies dopple will lead to my program stopping.
Éric.
>
> Jerry
--
Un clavier azerty en vaut deux
----------------------------------------------------------
Éric Depagne edepagne@lcogt.net
Las Cumbres Observatory
6740 Cortona Dr
Goleta CA, 93117
----------------------------------------------------------