comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-27 05:35:37 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

remove USE_FCD

Browse source
This commit is contained in:
Jeff Hammond 2022-03-07 11:28:38 +02:00
parent d3894df159
commit 76b4d005de
1 changed files with 0 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/util/util_date.c
View file

@ -1,25 +1,15 @@
/*$Id$*/
#include <sys/types.h>
#include <time.h>
#if !defined(IPSC) && !defined(WIN32)
#include <sys/time.h>
#endif
#if defined(CRAY)
#define util_date_ UTIL_DATE
#include <fortran.h>
#define FATR
#endif
#if defined(WIN32) &&!defined(__MINGW32__)
#define util_date_ UTIL_DATE
#include "typesf2c.h"
#endif
#if defined(USE_FCD)
int string_to_fortchar(_fcd, int, const char *);
#else
int string_to_fortchar(char *, int, const char *);
#endif
/*
Routine to return to FORTRAN the current date in
@ -30,14 +20,8 @@ int string_to_fortchar(char *, int, const char *);
*/
#if defined(USE_FCD)
void FATR util_date_(_fcd date)
{
int nlen = _fcdlen(date);
#else
void util_date_(char *date, int nlen)
{
#endif
time_t t = time((time_t *) 0);
char *tmp = ctime(&t);