27 |
! Modification M.-A. Filiberti 02/02 lecture de "traceur.def" |
! Modification M.-A. Filiberti 02/02 lecture de "traceur.def" |
28 |
! Modification de l'intégration de "q" (26/04/94) |
! Modification de l'intégration de "q" (26/04/94) |
29 |
|
|
30 |
use numer_rec, only: assert |
use nr_util, only: assert |
31 |
|
|
32 |
! Variables local to the procedure: |
! Variables local to the procedure: |
33 |
|
|
91 |
endif |
endif |
92 |
tnom(iq)=str1 |
tnom(iq)=str1 |
93 |
tname(iq)=tnom(iq) |
tname(iq)=tnom(iq) |
94 |
str2=tnom(iq) |
str2=tnom(iq) |
95 |
ttext(iq) = trim(str2) // descrq(iadv(iq)) |
ttext(iq) = trim(str2) // descrq(iadv(iq)) |
96 |
end do |
end do |
97 |
|
|