コード例 #1
0
ファイル: sizeof.c プロジェクト: dmlb2000/nwchem-cml
/**
 * Return the minimum no. of integers which will hold n DoublePrecisions.
 */
Integer MDTOI_(Integer *n)
{
    if (*n < 0) {
        Error("MDTOI_: negative argument",*n);
    }

    return (Integer) ( (MDTOB_(n) + sizeof(Integer) - 1) / sizeof(Integer) );
}
コード例 #2
0
ファイル: capi.c プロジェクト: jeffhammond/ga
long tcg_mdtob(long n)
{
    long an = n;

    return MDTOB_(&an);
}
コード例 #3
0
ファイル: capi.c プロジェクト: dmlb2000/nwchem-cml
long tcg_mdtob(long n)
{
    Integer an = n;

    return MDTOB_(&an);
}