!*************************************************************************************!
! TITLE: CFVR6102 - Single pile load test
! SUBTITLE: Reinforced concrete pile load test using Geotechnical Module utility
!
! DESCRIPTION: A single circular pile is subjected to a vertical force
! DESCRIPTION: and placed in a lime soil terrain.
! DESCRIPTION:
! DESCRIPTION: Determine the total design of single pile and axial force when ultimate
! DESCRIPTION: strength values are reached.
! DESCRIPTION:
!
! ELEMENT TYPE: BEAM4, LINK8
! MODULES: GETC
! UNITS: SI
! KEYWORD1: Code Checking/Design
! KEYWORD2: Geotechnics
! KEYWORD3: Piles
! KEYWORD4: EHE
!
!*************************************************************************************!

 FINISH
 ~CFCLEAR,,1
 NomFile='CFVR6102'
 /TITLE, %NomFile%, Single pile load test

  ~CFACTIV,GETC,Y

! -------------------------------------------------------------------------------------
! Initial data
! -------------------------------------------------------------------------------------
! CivilFEM SETUP
  ~CODESEL,EC3-92,EHE-98,EHE-98,,EC8-04    ! Set EHE codes
  ~UNITS,SI              ! Set SI units
  /PREP7

  ~CFMP,2,LIB,CONCRETE,EHE,HA-25
  ~CFMP,3,LIB,REINF,EHE,B 500 S
  ~CFMP,4,LIB,SOIL,,CL
  ~CFMP,4,SOIL    ,SPT     ,,46
  ~CFMP,4,SOIL    ,QU      ,,500000
  ~CFMP,4,SOIL    ,PHIMCEFF,,38
  ~CFMP,4,SOIL    ,CMCEFF  ,,60000

  ~TERDEF,1,NEW,1,0,Z,,,,0,,Lime soil
  ~TERDEF,1,LAYER,1,4,50 ,0 ,DB  ,0

  ~GTPD,CFVR6102,ltCF

/POST1

!--------------------------------------------------------------------------------------
! DATA CHECK
!--------------------------------------------------------------------------------------
! Data comparison number
  NComp = 2
  NComp_ch = 0

! Matrix dim.
  *DIM,LABEL,CHAR,Ncomp,1
  *DIM,LABEL_CH,CHAR,Ncomp_ch,1
  *DIM,VALUE,,Ncomp,3
  *DIM,VALUE_CH,CHAR,Ncomp_ch,3
  *DIM,TOLER,,Ncomp,2

! Correct values
  VALUE( 1,1) = 33
  VALUE( 2,1) = -4081000

! ---------------------------------------------------------------------------------
! Control tests
! ---------------------------------------------------------------------------------
! Test 1:
! - Frame dimensions
! Test 2:
! - Reinforcement results.
! ---------------------------------------------------------------------------------
! Test 1:
  *GET,VALUE( 1,2),ELEM,,COUNT
  /POST1
  ~CFSET,,1
  ~CFGET,VALUE( 2,2),ELEMENT,1,FORCE,FX,J

! Labels
  LABEL( 1) ='NELM'
  LABEL( 2) ='AXIALMIN'

! Warning and error tolerances
  TOLER( 1, 1)= 1E-3        $   TOLER( 1, 2)= 1E-3
  TOLER( 2, 1)= 1E-3        $   TOLER( 2, 2)= 1E-3

!--------------------------------------------------------------------------------------
! Results comparison
!--------------------------------------------------------------------------------------
  COMPARA.MAC