1 /**********************************************************************
2 TRAN_Set_MP.c:
3
4 TRAN_Set_MP.c is a subroutine to set an array 'MP'.
5
6 Log of TRAN_Set_MP.c:
7
8 11/Dec/2005 Released by H.Kino
9
10 ***********************************************************************/
11
12 #include <stdio.h>
13 #include <math.h>
14 #include <string.h>
15
TRAN_Set_MP(int job,int atomnum,int * WhatSpecies,int * Spe_Total_CNO,int * NUM,int * MP)16 void TRAN_Set_MP(
17 int job,
18 int atomnum, int *WhatSpecies, int *Spe_Total_CNO,
19 int *NUM, /* output */
20 int *MP /* output */
21 )
22 {
23 int Anum, i, wanA, tnoA;
24
25 /* setup MP */
26 Anum = 1;
27 for (i=1; i<=atomnum; i++){
28 if (job) MP[i] = Anum;
29 wanA = WhatSpecies[i];
30 tnoA = Spe_Total_CNO[wanA];
31 Anum = Anum + tnoA;
32 }
33
34 *NUM=Anum-1;
35 }
36
37
38