+# MACROS
+#======================================
+
+# Get system date
+MACRO (TODAY RESULT)
+ IF (WIN32)
+ EXECUTE_PROCESS(COMMAND "date" "/T" OUTPUT_VARIABLE ${RESULT})
+ string(REGEX REPLACE "(..)/(..)/..(..).*" "\\3\\2\\1" ${RESULT} ${${RESULT}})
+ ELSEIF(UNIX)
+ EXECUTE_PROCESS(COMMAND "date" OUTPUT_VARIABLE ${RESULT})
+ string(REGEX REPLACE "(...) (...) (.+) (..:..:..) (.+) (....).*" "\\1 \\2 \\3 \\4 \\5 \\6" ${RESULT} ${${RESULT}})
+ ELSE (WIN32)
+ MESSAGE(SEND_ERROR "date not implemented")
+ SET(${RESULT} 000000)
+ ENDIF (WIN32)
+ENDMACRO (TODAY)
+
+# foramt variables used in cinfo.f
+MACRO (CINFO_FORMAT FN VN VD)
+# 50 znakowi
+# 73 w całej linii
+# write(iout,*)'INSTALL_DIR = /users/software/mpich-1.2.7p1_int...'
+ string(LENGTH "${VN}" VNLEN)
+ string(LENGTH "${VD}" VDLEN)
+ set(STR "${VN} ${VD}")
+ string(LENGTH "${STR}" SUMA)
+ math(EXPR STRLEN 50-${VNLEN})
+# message("lancuch=${STRLEN}")
+# Fit in one line?
+# No.
+ if(SUMA GREATER 50)
+ string(SUBSTRING "${STR}" 0 50 STR_OUT)
+# message(" write(iout,*)'${VAR} = ${STR_OUT}'")
+ file(APPEND ${FN} " write(iout,*)'${STR_OUT}'\n")
+ math(EXPR STRLEN ${SUMA}-50)
+ string(SUBSTRING "${STR}" 50 ${STRLEN} STR)
+ string(LENGTH "${STR}" STRLEN)
+ while(STRLEN GREATER 48)
+# message("Przycinam lancuch")
+ string(SUBSTRING "${STR}" 0 48 STR_OUT)
+ file(APPEND ${FN} " write(iout,*)' ${STR_OUT}'\n")
+ math(EXPR STRLEN ${STRLEN}-49)
+ string(SUBSTRING "${STR}" 49 ${STRLEN} STR)
+ string(LENGTH "${STR}" STRLEN)
+ endwhile(STRLEN GREATER 48)
+ file(APPEND ${FN} " write(iout,*)' ${STR}'\n")
+# MESSAGE("DLUGOSC = ${VNLEN}; DLUGOSCD = ${VDLEN}; SUMA=${SUMA}; ${VAR} = ${${VAR}} " )
+# Yes
+ else(SUMA GREATER 50)
+ file(APPEND ${FN} " write(iout,*)'${STR}'\n")
+ endif(SUMA GREATER 50)
+ENDMACRO (CINFO_FORMAT)
+
+# Some MPI wrappers pass double include paths
+# This macro fixes broken by semicolon occurence in path
+MACRO (FIX_DBL_INCLUDE RESULT)
+ string(REPLACE ";" " -I" ${RESULT} "${${RESULT}}")
+ENDMACRO (FIX_DBL_INCLUDE)
+