• 大小: 705KB
    文件类型: .gz
    金币: 2
    下载: 1 次
    发布日期: 2021-05-09
  • 语言: ASP
  • 标签: VASP  

资源简介

VASP, The Vienna Ab initio simulation package, a plane wave electronic structure code

资源截图

代码片段和文件信息

/*****************************************************************
      FORTRAN interface to get user-time and real time on
      AIX-system might work on other UNIX systems as well
      (must work on all BSDish systems and SYSVish systems
      with BSD-compatibility timing routines ...)!?
*****************************************************************/

#ifndef NULL
#define NULL    ((void *)0)
#endif

#include 
#include 

void vtime(vputimcputim)
double  *vputim*cputim;
{
        int    gettimeofday();
        int    getrusage();
        struct rusage ppt;
        struct rusage cpt;
        struct timeval tputps;
        struct timeval tcutcs;
        struct timeval now;
        int    ierr;
        ierr = getrusage(RUSAGE_SELF&ppt);
        tpu  = ppt.ru_utime;
        tps  = ppt.ru_stime;
        ierr = getrusage(RUSAGE_CHILDREN&cpt);
        tcu  = cpt.ru_utime;
        tcs  = cpt.ru_stime;
        ierr = gettimeofday(&nowNULL);
        *vputim=((double) tpu.tv_sec) + ((double) tpu.tv_usec) / 1e6 +
                ((double) tps.tv_sec) + ((double) tps.tv_usec) / 1e6 +
                ((double) tcu.tv_sec) + ((double) tcu.tv_usec) / 1e6 +
                ((double) tcs.tv_sec) + ((double) tcs.tv_usec) / 1e6;
        *cputim=((double) now.tv_sec) + ((double) now.tv_usec) / 1e6;
}

评论

共有 条评论