← Back to branch summary

~siesta-ts/siesta/trunk_ts_soc

« back to all changes in this revision

Viewing changes to Src/flook_siesta.F90

  • Committer: Nils Wittemeier
  • Date: 2019-02-14 07:45:07 UTC
  • mfrom: (746.1.15 trunk)
  • Revision ID: nils@4wittemeier.de-20190214074507-1mvzbmj9kw19gllr
Merged trunk 761

Show diffs side-by-side

added added

removed removed

Lines of Context:
Src/flook_siesta.F90
144
144
       
145
145
       return
146
146
    end if
147
 
    
 
147
 
 
148
    call timer('LUA', 1)
 
149
    call timer('LUA-init', 1)
 
150
 
148
151
    ! Initialize the Lua state
149
152
    call lua_init(LUA)
150
153
 
185
188
    err_msg = " "
186
189
    call lua_run(LUA, slua_file, error = err, message=err_msg)
187
190
    if ( err /= 0 ) then
188
 
       write(*,'(a)') trim(err_msg)
189
 
       call die('LUA initialization failed, please check your Lua script!!!')
 
191
      write(*,'(a)') trim(err_msg)
 
192
      call die('LUA initialization failed, please check your Lua script!!!')
 
193
    else if ( IONode ) then
 
194
      write(*,'(/2a/)') 'LUA successfully initialized: ',trim(slua_file)
190
195
    end if
191
 
    
 
196
 
 
197
    call timer('LUA-init', 2)
 
198
    call timer('LUA', 2)
 
199
 
192
200
  end subroutine slua_init
193
201
 
194
202
  subroutine slua_call(LUA, state)
212
220
    ! Return immediately if we should not run
213
221
    if ( .not. (slua_run .or. slua_interactive) ) return
214
222
 
 
223
    call timer('LUA', 1)
 
224
    call timer('LUA-call', 1)
 
225
 
215
226
    ! Transfer the state to the lua interpreter such
216
227
    ! that decisions can be made as to which steps
217
228
    ! to take
271
282
           &check your Lua script')
272
283
     end if
273
284
   end if
 
285
 
 
286
   call timer('LUA-call', 2)
 
287
   call timer('LUA', 2)
274
288
   
275
289
 contains
276
290