C GDOT SOURCE FANDEUR 22/05/02 21:15:20 11359 FUNCTION GDOT(R,Z,IDDOT) IMPLICIT REAL*8 (A-H,O-Z) IMPLICIT INTEGER (I-N) C*********************************************************************** C NOM : GDOT C DESCRIPTION : Interface à DDOT C C C C LANGAGE : ESOPE C AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF) C mél : gounand@semt2.smts.cea.fr C*********************************************************************** C APPELES : C APPELES (E/S) : C APPELES (BLAS) : C APPELES (CALCUL) : C APPELE PAR : C*********************************************************************** C SYNTAXE GIBIANE : C ENTREES : C ENTREES/SORTIES : C SORTIES : C CODE RETOUR (IRET) : = 0 si tout s'est bien passé C*********************************************************************** C VERSION : v1, 09/02/2006, version initiale C HISTORIQUE : v1, 09/02/2006, création C HISTORIQUE : C HISTORIQUE : C*********************************************************************** C Prière de PRENDRE LE TEMPS de compléter les commentaires C en cas de modification de ce sous-programme afin de faciliter C la maintenance ! C*********************************************************************** -INC PPARAM -INC CCOPTIO -INC SMMATRIK POINTEUR R.IZA,Z.IZA REAL*8 DDOT, DDOT2 EXTERNAL DDOT, DDOT2 * * Executable statements * N=R.A(/1) IF (IDDOT.EQ.0) THEN GDOT=DDOT(N,R.A,1,Z.A,1) ELSEIF (IDDOT.EQ.1) THEN GDOT=DDOT2(N,R.A,Z.A) ELSE Write(ioimp,*) 'Programming error in KRES subroutine gdot' STOP 16 ENDIF * * Normal termination * RETURN * * End of subroutine GDOT * END