Demo entry 2457469

sdfsdf

   

Submitted by anonymous on Aug 21, 2015 at 11:28
Language: Django/Jinja. Code size: 765 Bytes.

module {{file.name}}_mod
 {% for value in file.l_provider %}
 {{value.type}} :: {{value.name}}
 logical :: {{value.name}}_is_built = .FALSE.
 {% endfor %}
end module {{file.name}}_mod

{% for value in file.l_provider %}
subroutine provide_{{value.name}}

 {% for mod in value.l_mod %}
 use {{mod.name}}_mod
 {% endfor %}
    
 if (.not.{{value.name}}.is_built) then

  {% for parent in value.l_parents %}
  call provide_{{parent.name}}
  {% endfor %}
       
  call bld_{{value.name}}
  {{value.name}}_is_built = .TRUE.
 end if 
end subroutine provide_{{value.name}}

subroutine bld_{{value.name}}

 {% for mod in value.l_mod %}
 use {{mod.name}}_mod
 {% endfor %}
    
 {{value.code}}
end subroutine bld_{{value.name}}
{% endfor %}

This snippet took 0.00 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).