lagrangian_set_SetWriteFileName Subroutine

private pure subroutine lagrangian_set_SetWriteFileName(this, name)

Sets the base name of file to write.

Type Bound

lagrangian_set

Arguments

Type IntentOptional Attributes Name
class(lagrangian_set), intent(inout) :: this

A set of Lagrangian objects
character(len=*), intent(in) :: name

Name of file

Called by

proc~~lagrangian_set_setwritefilename~~CalledByGraph proc~lagrangian_set_setwritefilename lagrangian_set%lagrangian_set_SetWriteFileName proc~marker_set_prepare marker_set%marker_set_Prepare proc~marker_set_prepare->proc~lagrangian_set_setwritefilename proc~particle_set_prepare particle_set%particle_set_Prepare proc~particle_set_prepare->proc~lagrangian_set_setwritefilename proc~setupcaseib SetUpCaseIB proc~setupcaseib->proc~lagrangian_set_setwritefilename proc~setupcaseib~2 SetUpCaseIB proc~setupcaseib~2->proc~lagrangian_set_setwritefilename proc~setupcaseib~3 SetUpCaseIB proc~setupcaseib~3->proc~lagrangian_set_setwritefilename proc~setupcaseib~4 SetUpCaseIB proc~setupcaseib~4->proc~lagrangian_set_setwritefilename proc~setupcasepp SetUpCasePP proc~setupcasepp->proc~lagrangian_set_setwritefilename proc~setupcasepp~2 SetUpCasePP proc~setupcasepp~2->proc~lagrangian_set_setwritefilename proc~grans_obj_preparesolver grans_obj_PrepareSolver proc~grans_obj_preparesolver->proc~marker_set_prepare program~main~14 main program~main~14->proc~setupcaseib~4 program~main~2 main program~main~2->proc~setupcaseib program~main~4 main program~main~4->proc~setupcaseib~2 program~main~6 main program~main~6->proc~setupcasepp program~main~7 main program~main~7->proc~setupcasepp~2 program~main~9 main program~main~9->proc~setupcaseib~3 interface~grans_obj_preparesolver grans_obj%grans_obj_PrepareSolver interface~grans_obj_preparesolver->proc~grans_obj_preparesolver

Source Code

    pure subroutine lagrangian_set_SetWriteFileName(this,name)
      !> Sets the base name of file to write.
      implicit none
      class(lagrangian_set), intent(inout) :: this                             !! A set of Lagrangian objects
      character(len=*),      intent(in)    :: name                             !! Name of file

      this%write_file=name

      return
    end subroutine lagrangian_set_SetWriteFileName