00001 00002 #include "../../routines/machine.h" 00003 00004 /******************************************* 00005 * complex matrices 00006 * are transmited as ar,ai,itra 00007 * real part, imaginary part and a descriptor flag 00008 * the descriptor flag is 1 for a complex matrix 0 if the 00009 * matrix is real valued 00010 *******************************************/ 00011 00012 int F2C(ext11c)( ar,ai,itra, br,bi,itrb, m,n) 00013 int *n,*m,*itra,*itrb; 00014 double *ar,*ai, *br,*bi; 00015 { 00016 int k; 00017 for (k = 0; k < *n*(*m); ++k) 00018 { 00019 if ( *itra == 1) 00020 br[k] = ai[k]; 00021 else 00022 br[k] = 0.0; 00023 bi[k] = ar[k]; 00024 } 00025 *itrb=1; 00026 return(0); 00027 } 00028
1.5.1