weird behaviour

[Éric Depagne]

> 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
----------------------------------------------------------