2012-01-31 20:24:49 +05:30
|
|
|
!$Id$
|
|
|
|
#ifdef __GFORTRAN__
|
|
|
|
#if __GNUC__<=4 && __GNUC_MINOR__<=5
|
2012-03-20 17:56:21 +05:30
|
|
|
write(6,'(3(a,i2.2))') ' Compiled with GCC version ', __GNUC__,'.',__GNUC_MINOR__,&
|
2012-01-31 20:24:49 +05:30
|
|
|
'.',__GNUC_PATCHLEVEL__
|
|
|
|
#else
|
|
|
|
write(6,*) 'Compiled with ', compiler_version() !not supported by GFORTRAN 4.5 and ifort 12
|
|
|
|
write(6,*) 'With options ', compiler_options()
|
|
|
|
#endif
|
|
|
|
#endif
|
|
|
|
#ifdef __INTEL_COMPILER
|
2012-02-01 00:48:55 +05:30
|
|
|
write(6,'(a,i4.4,a,i8.8)') ' Compiled with Intel fortran version ', __INTEL_COMPILER,&
|
2012-01-31 20:24:49 +05:30
|
|
|
', build date ', __INTEL_COMPILER_BUILD_DATE
|
|
|
|
#endif
|
|
|
|
write(6,*) 'Compiled on ', __DATE__,' at ',__TIME__
|
|
|
|
write(6,*)
|
2012-08-29 20:53:43 +05:30
|
|
|
call flush(6)
|