Vargas : la bibliothèque NAG

Support technique → Calcul scalaire → Logiciels et bibliothèques → Les bibliothèques scientifiques → NAG.

NAG

1 - Description

La bibliothèque NAG (Numerical Algorithms Group) en provenance d'Oxford est constituée d'environ 1000 sous-programmes classés par chapitre :

A02 : arithmétique complexe,
C02 : zéros de polynômes,
C05 : racines d'équations non linéaires,
D01 : quadratures,
D02 : équations différentielles ordinaires,
F01 : opérations sur les matrices,
F02 : valeurs et vecteurs propres,
F07, F08 : résolution systèmes linéaires (LAPACK),
G02 : corrélation et régression,
G04 : analyse de variance,
G05 : générateurs de nombres aléatoires,
M01 : tri,
S : fonctions spéciales.

2 - Versions installées

NAG Mark 22

3 - Utilisation

Compilation et édition de liens	Mode numérique	Nom des sous-programmes	Mode d'adressage
`$ module load nag $ xlf_r call_nag.f`	`I4D8`	`...F`	64

4 - Modules pré-compilés Fortran

La bibliothèque NAG est distribuée avec des modules Fortran précompilés (.mod). Pour utiliser ces modules dans des codes pré-existants :

ajouter l'instruction USE correspondant à la première lettre de la subroutine NAG utilisée :

USE nag_f77_a_chapter
USE nag_f77_c_chapter
USE nag_f77_d_chapter
USE nag_f77_e_chapter
USE nag_f77_f_chapter
USE nag_f77_g_chapter
USE nag_f77_h_chapter
USE nag_f77_m_chapter
USE nag_f77_p_chapter
USE nag_f77_s_chapter
USE nag_f77_x_chapter

éliminer les instructions EXTERNAL concernant les subroutines NAG,
éliminer les déclarations des fonctions NAG,
la compilation avec les modules Fortran pré-compilés se fait grâce à la commande :
```
$ module load nag
```

Exemple d'un code F77 écrit en format fixe appelant D01DAF :

      PROGRAM appel_D01DAF

* Add USE statements for relevant chapters          *
      USE NAG_F77_D_CHAPTER
      IMPLICIT NONE

*     .. Parameters ..
*     ...

*     .. External Subroutines ..
* EXTERNAL declarations need to be removed.          *
C     EXTERNAL         D01DAF

*     .. Executable Statements ..
      ...
      CALL D01DAF(YA,YB,P1,P2A,FA,ABSACC,ANS,NPTS,IFAIL)
      ...
...
END

5 - Exemple

vargas : cat nag.f

program nag
  integer, parameter :: nout=6
  real(kind=8) x
  real(kind=8) g05caf
  integer      i
  external g05caf
  external g05cbf 
 
  write (nout,*) 'g05caf example program results'
  write (nout,*)
  call g05cbf(0)
  do i =1,5
    x = g05caf(x)
    write (nout, '(1x,f10.4)') x
  end do
end program nag

vargas : module load nag
vargas : xlf_r -qfree nag.f

Pour chaque sous-programme de NAG, un exemple d'appel est disponible et peut être lancé à l'aide du script nag_exemple pour tester la bibliothèque. Ce script copie le source du code et ses fichiers de données dans le répertoire courant, compile et exécute le test.

$ cd $WORKDIR
$ module load nag
$ /usr/local/prod/NAG/def/scripts/nag_example e04ucf

6 - Documentations

Manuel NAG et notes d'utilisation