./src/run.tcl

::pwtk::dryrunCP

::pwtk::dryrunCP

SYNOPSIS

proc pwtk::dryrunCP {} {

USAGE

dryrunCP

DESCRIPTION

Make a fast cp.x dry-run (as to query the info). Beware that this is not really a dry-run and will take a while.

WARNINGS

This is not really a dry-run and the calculation will take a while.

RETURN VALUE

Name of the output file of the cp.x dry-run.

SOURCE

    set prog    [findExecutable cp.x]
    set head    cp.dry-run

    ::pwtk::warning "cp.x dryrun is not really a dry-run and will take a while"
    
    input_pushpop {
        CONTROL   { nstep = 0, prefix = 'cp' }
        ELECTRONS { electron_maxstep = 0 }
        input_clear AUTOPILOT
        ::pwtk::cpi::fprint $head.in

        ::pwtk::print "Running: [prefix] $prog -in $head.in > $head.out"

        catch {
            # do a simple run
            exec touch cp.EXIT
            eval exec [prefix] $prog -in $head.in > $head.out
        }
    }
    return $head.out
}

TABLE OF CONTENTS

::pwtk::dryrunCP