C GSCAL SOURCE PV 20/09/26 21:17:22 10724 SUBROUTINE GSCAL(ALPHA,X) IMPLICIT REAL*8 (A-H,O-Z) IMPLICIT INTEGER (I-N) C*********************************************************************** C NOM : GSCAL C DESCRIPTION : Interface à DSCAL 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 SMMATRIK POINTEUR X.IZA * * Executable statements * N=X.A(/1) CALL DSCAL(N,ALPHA,X.A,1) * * Normal termination * RETURN * * End of subroutine GSCAL * END