UNITS // using in GiD and Atena
  force        "*Units(FORCE)"
*#//     lineforce    "*Units(LINEFORCE)"
*#//     surfaceforce "*Units(STRESS)"
*If(strcmp(Units(LENGTH),"invin")!=0)
  length       "*Units(LENGTH)"
*Else
  length       "in"
*EndIf
*#//     area         "*Units(AREA)"
  temperature  "*Units(UNIT_TEMPERATURE)"
  time         "*Units(TIME)"
  mass         "*Units(MASS)"
*#//     weight       "*Units(SPECIFIC_WEIGHT)"
*#//     density      "*Units(DENSITY)"
*If(strcmp(GenData(Calculation_Analysis),"Transport")==0)
*#//	 conductivity "*Units(CONDUCTIVITY)"
*#//	 capacity     "*Units(CAPACITY)"
*#//     convection   "*Units(CONVECTION)"
*#// internal sources "*Units(INTSOURCE)"
*EndIf

*#/**
*#1.Units For weight [*Units(SPECIFIC_WEIGHT)] and force [*Units(FORCE)] and length [*Units(LENGTH)] have to be consistents
*#??? [*Units(SPECIFIC_WEIGHT)] == [*\
*#*tcl(JN4Strcat "*Units(FORCE)" "/" "*Units(LENGTH)" "^3")] ???
*#*If(strcmp(Units(SPECIFIC_WEIGHT),GenData(temp))!=0)
*#*MessageBox error: Inconsistent Units: Force-Length and Weight
*#*EndIf
*#
*#2.Units For lineforce [*Units(LINEFORCE)] and force [*Units(FORCE)] and length [*Units(LENGTH)] have to be consistents
*#??? [*Units(LINEFORCE)] == [*\
*#*tcl(JN4Strcat "*Units(FORCE)" "/" "*Units(LENGTH)" "")] ???
*#*If(strcmp(Units(LINEFORCE),GenData(temp))!=0)
*#*MessageBox error: Inconsistent Units: Force-Length and LineForce
*#*EndIf
*#
*#3.Units For surfaceforce [MPa] and force [MN] and length^2 [m^2] have to be consistents 
*#	as STRESS a FORCE/LENGTH^2
*#??? [MPa] == [MPa] ???
*#  Jeste je potreba to testovat - STRESS a FORCE/LENGTH^2
*#
*#**/
