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